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^A  MICRO-COBOL  interpretive  compiler  has  been  implemented 
on  an  8080  micro-computer  based  system  running  under  CP/M. 
The  implementation  is  a subset  of  ADPESO  standard  HYPO-COBOL 
in  that  the  interprogram  communication  module  has  not  been 
included.  HYPO-COBOL  provides  nucleus  level  constructs  and 
file  options  from  the  ANSII  COBOL  package  along  with  the 
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1 PERFORM  UNTIL  construct  from  a higher  level  to  give  increased 
structural  control.  MICRO-COBOL  can  be  executed  on  an  8080 
or  Z-80  micro-computer  system  with  16K  of  memory.  Although 
largely  completed  and  tested,  all  features  are  not  implemented. 
File  I/O  features  have  not  been  tested  and  the  numeric  edit 
instruction  has  not  been  implemented  in  the  interpreter. 
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ABSTRACT 


A MICRO-COBOL  interpretive  compiler  has  been  implemented 
on  an  8080  micro-computer  based  system  running  under  CP/M. 

The  implementation  is  a subset  of  ADPESO  standard  HYPO-COBOL 
in  that  the  interprogram  communication  module  has  not  been 
included*  HYPO-COBOL  provides  nucleus  level  constructs  and 
file  options  from  the  ANSI  I COBOL  package  along  with  the 
PERFORM  UNTIL  construct  from  a higher  level  to  give  increased 
structural  control.  MICRO-COBOL  can  be  executed  on  an  8080 
or  Z-80  micro-computer  system  with  16K  of  memory.  Although 
largely  completed  and  tested,  all  features  are  not  implemented. 
File  I/O  features  have  not  been  tested  and  the  numeric  edit 
instruction  has  not  been  implemented  in  the  interpreter. 
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I . INTRODUCTION 

A.  BACKGROUND 

MICRO-COBOL  is  an  implementation  of  ADPESO  standard 
MYPO-COBOL  with  the  major  exception  that  the  interprogram 
communication  module  is  not  included.  It  has  been  imple- 
mented as  an  interpretive  compiler  in  that  the  compiler 
itself  generates  intermediate  code  which  is  then  executed 
by  a separate  interpreter  program.  Both  compiler  and  inter- 
preter run  under  CP/M  on  an  8080  or  Z-80  micro-computer  system 
with  16K  of  memory.  Much  credit  for  this  work  goes  to  Allen 
S.  Craig  who  did  the  original  design  and  implementation  of 
MICRO-COBOL  for  his  thesis  submitted  in  March  1977.  Craig's 
work  is  contained  in  Reference  1.  Most  of  the  coding  had 
been  completed,  but  many  of  the  constructs  did  not  work  or 
worked  incorrectly.  Since  much  of  the  compiler  had  not  been 
debugged  and  some  areas  not  completed,  thesis  work  was  con- 
tinued in  March  1978  with  the  goal  of  producing  a working 
MICRO-COBOL  compiler  and  interpreter. 

B.  APPROACH 

As  a first  step,  the  program  listings  and  thesis  were 
studied  to  gain  familiarity  with  the  original  project  goals 
and  resolve  several  areas  of  conflict  between  the  thesis  and 
the  listings.  The  remaining  effort  consisted  of  running  test 
programs,  isolating  bugs,  and  making  additions,  corrections 
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and  small  design  changes.  The  problems  discovered  were 
primarily  errors  in  the  code,  however,  there  were  also 
missing  routines  and  grammar  problems  which  necessitated 
reconstructing  the  original  grammar.  Appendix  D lists  the 
features  that  did  not  work  at  the  start  of  this  project  and 
the  bugs  that  are  known  to  remain. 

The  HYPO-COBOL  Compiler  Validation  System  (HCCVS)  was 
obtained  from  the  Automatic  Data  Processsing  Equipment  Selec- 
tion Office  (ADPESO)  to  be  used  in  testing  the  compiler. 

The  HCCVS  is  intended  to  determine  the  degree  to  which  the 
individual  language  elements  conform  to  the  HYPO-COBOL 
Specification.  The  validation  system  is  made  up  of  audit 
routines,  their  related  data,  and  an  executive  routine  which 
prepares  the  audit  routines  for  compilation.  Each  audit 
routine  is  a HYPO-COBOL  program  which  includes  tests  and 
supporting  procedures  that  print  out  the  results  of  each 
test.  The  audit  routines  collectively  test  the  features  of 
the  HYPO-COBOL  Language  Specification.  Since  MICRO-COBOL 
does  not  support  the  interprogram  communication  module 
feature  of  HYPO-COBOL,  the  HCCVS  is  not  useful  in  its  existing 
form;  however,  it  contains  numerous  routines  which  can  be 
used  to  create  small  test  programs  that  should  run  on  MICRO- 
COBOL  as  it  currently  exists. 

A language  construct  in  question  was  tested  by  writing 
a test  program,  compiling  it,  and  executing  it  on  the  inter- 
preter. If  problems  were  encountered,  the  intermediate  code 
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was  examined  to  determine  if  the  difficulty  was  in  the  com- 
piler or  the  interpreter.  Having  made  this  determination, 
the  program  was  examined  to  isolate  the  bad  code  using  SID 
(see  Reference  12).  Changes  were  then  made  and  the  source 
program  recompiled  using  the  ISIS  editor  and  the  PLM80 
compiler  on  the  INTEL  MDS  System.  Appendix  B describes  the 
procedure  used  to  construct  the  executable  compiler  and 
interpreter  files  from  the  edited  PLM80  source  files. 

The  following  sections  describe  the  implementation  of 
the  compiler  and  interpreter.  This  material  should  be  read 
in  conjunction  with  Reference  1 which  contains  additional 
background  information. 


II.  MICRO-COBOL  INTERPRETER 


■ 


A.  GENERAL  DESCRIPTION 

The  following  sections  describe  the  MICRO-COBOL  pseudo- 
machine architecture  in  terms  of  allocated  memory  areas  and 
pseudo-machine  operations.  The  machine  operators  contain 
all  of  the  information  required  to  perform  one  complete 
action  required  by  the  language.  The  machine  contains  mul- 
tiple parameter  operators  and  a program  counter  that 
addresses  the  next  instruction  to  be  executed.  Three 
eighteen  digit  registers  are  used  for  arithmetic  and  logic 
operations.  A subscript  stack  is  used  to  compute  subscript 
locations,  and  a set  of  flags  are  used  to  pass  branching 
information  from  one  instruction  to  another.  The  registers 
allow  manipulation  of  signed  numbers  of  up  to  eighteen 
decimal  digits  in  length.  Included  in  their  representation 
is  a sign  indicator  and  the  position  of  the  assumed  decimal 
point  for  the  currently  loaded  number.  The  HYPO-COBOL 
specification  requires  that  there  be  no  loss  of  precision 
for  operations  on  numbers  having  eighteen  significant  digits. 
Numbers  are  represented  in  "DISPLAY"  and  "packed  decimal"  formats. 
DISPLAY  format  numbers  are  represented  in  memory  in  ASCII 
and  may  have  separate  signs  indicated  by  "+"  and  or  may 
have  a "zone"  indicator,  denoting  a negative  sign.  In 
packed  decimal  format  the  numbers  are  represented  in  memory 
as  sequential  digit  pairs  and  the  sign  is  indicated  in  the 
right-most  position. 


I 

B.  MEMORY  ORGANIZATION 

Memory  is  divided  into  three  major  sections:  (1)  the 
data  areas  defined  by  the  DATA  DIVISION  statements,  (2)  the 
code  area,  (3)  and  the  constants  area.  No  particular  order 
of  these  sections  is  required.  The  first  two  areas  assume 
the  ability  to  both  read  and  write,  but  the  third  only 
requires  the  ability  to  be  read.  The  code  area  requires 
write  capability  because  several  instructions  store  branch 
addresses  and  return  addresses  during  execution. 

The  data  area  contains  variables  defined  by  the  DATA 
DIVISION  statements,  constants  set  in  the  WORKING  STORAGE 
SECTION,  and  all  file  control  blocks  and  buffers.  These 
elements  will  be  manipulated  by  the  machine  as  each  instruc- 
tion is  executed. 

C.  INTERPRETER  INSTRUCTIONS 
1 . Format 

All  of  the  interpreter  instructions  consist  of  an 
instruction  number  followed  by  a list  of  parameters.  The 
following  sections  describe  the  instructions,  list  the 
required  parameters,  and  describe  the  actions  taken  by  the 
machine  in  executing  each  instruction.  In  each  case, 
parameters  are  denoted  informally  by  the  parameter  name 
enclosed  in  brackets.  The  BRN  branching  instruction,  for 
example,  uses  the  single  parameter  <branch  address>  which 
is  the  target  of  the  unconditional  branch. 
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As  each  instruction  number  is  fetched  from  memory, 


the  program  counter  is  incremented  by  one.  The  program 
counter  is  then  either  incremented  to  the  next  instruction 
number,  or  a branch  is  taken. 

The  three  eighteen  digit  registers  which  are  used 
by  the  instructions  covered  in  the  following  section  are 
referred  to  as  registers  zero,  one,  and  two. 

2.  Arithmetic  Operations 

There  are  five  arithmetic  instructions  which  act 
upon  the  three  registers.  In  all  cases,  the  result  is 
placed  in  register  two.  Operations  are  allowed  to  destroy 
the  input  values  during  the  process  of  creating  a result, 
therefore,  a number  loaded  into  a register  is  not  available 
for  a subsequent  operation. 

ADD:  (addition) . Sum  the  contents  of  register  zero 

and  register  one. 

Parameters:  no  parameters  are  required. 

SUB:  (subtract) . Subtract  register  zero  from  register 

one. 

Parameters:  no  parameters  are  required. 

MUL:  (multiply) . Multiply  register  zero  by  register 

one. 

Parameters:  no  parameters  required. 

DIV:  (divide) . Divide  register  one  by  the  value  in 

register  zero.  The  remainder  is  not  retained. 

Parameters:  no  parameters  are  required. 


RND:  (round).  Round  register  two  to  the  last  signifi- 

cant significant  decimal  place. 

Parameters:  no  parameters  are  required. 

3 . Branching 

The  machine  contains  the  following  flags  which  are 
used  by  the  conditional  instructions  covered  in  this 
section. 

BRANCH  flag  — indicates  if  a branch  is  to  be  taken; 

END  OF  RECORD  flag  — indicates  that  an  end  of  input 
condition  has  been  reached  when  an  attempt  was  made  to  read 
input; 

OVERFLOW  flag  — indicates  the  loss  of  information  from 
a register  due  to  a number  exceeding  the  available  size; 

INVALID  flag  — indicates  an  invalid  action  in  writing 
to  a direct  access  storage  device. 

All  of  the  branch  instructions  are  executed  by 
changing  the  value  of  the  program  counter.  Some  are  uncondi- 
tional branches  and  some  test  for  condition  flags  which  are 
set  by  other  instructions.  A conditional  branch  is  executed 
by  testing  the  branch  flag  which  is  initialized  to  false. 

A true  value  causes  a branch  by  changing  the  program  counter 
to  the  value  of  the  branch  address.  The  branch  flag  is  then 
reset  to  false.  A false  value  causes  the  program  counter 
to  be  incremented  to  the  next  sequential  instruction. 

BRN:  (branch  to  an  address).  Load  the  program  counter 

with  the  <branch  address>. 

Parameters:  <branch  address> 
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The  next  three  incstructions  share  a common  format. 
The  memory  field  addressed  by  the  <memory  address>  is  checked 
for  the  <address  length>,  and  if  all  the  characters  match  the 
test  condition,  the  branch  flag  is  complemented. 

Parameters:  <memory  address > <address  length>  <branch 

address> 

CAL:  (compare  alphabetic) . Compare  a memory  field  for 

alphabetic  characters. 

CNS:  (compare  numeric  signed).  Compare  a field  for 

numeric  characters  allowing  for  a sign  character. 

CNU : (compare  numeric  unsigned) . Compare  a field  for 

numeric  characters  only. 

DEC:  (decrement  a counter  and  branch  if  zero) . 

Decrement  the  value  of  the  <address  counter > by  one;  if  the 
result  is  zero  before  or  after  the  decrement,  the  program 
counter  is  set  to  the  <branch  address>.  If  the  result  is 
not  zero,  the  program  counter  is  incremented  by  four. 
Parameters:  <address  counter>  <branch  address> 

EOR:  (branch  on  end-of-records  flag) . If  the  end- 

of-records  flag  is  true,  it  is  set  to  false  and  the  program 
counter  is  set  to  the  <branch  address>.  If  false,  the 
program  counter  is  incremented  by  two. 

Parameters:  <branch  address> 

GDP:  (go  to  - depending  on) . The  memory  location 

addressed  by  the  <number  address>  is  read  for  the  number  of 
bytes  indicated  by  the  <memory  length>  . This  number 
indicates  which  of  the  <branch  addresses > is  to  be  used. 


The  first  parameter  is  a bound  on  the  number  of  branch 
addresses.  If  the  number  is  within  the  range,  the  program 
counter  is  set  to  the  indicated  address.  An  out-of-bounds 
value  causes  the  program  counter  to  be  advanced  to  the  next 
sequential  instruction. 

Parameters:  <bound  number  - byte>  <memory  length>  <memory 

address>  <branch  addr-l>  <branch  addr-2>  ...  <branch  addr-n> 
INV:  (branch  if  invalid-file-action  flag  true) . If  the 

invalid-file-action  flag  is  true,  then  it  is  set  to  false, 
and  the  program  counter  is  set  to  the  branch  address.  If  it 
is  false,  the  program  counter  is  incremented  by  two. 
Parameters:  <branch  address > 

PER:  (perform) . The  code  address  addressed  by  the 

<change  address>  is  loaded  with  the  value  of  the  <return 
address>.  The  program  counter  is  then  set  to  the  <branch 
address> . 

Parameters:  <branch  address>  <change  address>  <return 

address > 

RET:  (return) . If  the  value  of  the  <branch  address>  is 

not  zero,  then  the  program  counter  is  set  to  its  value,  and 
the  <branch  address>  is  set  to  zero.  If  the  <branch  address> 
is  zero,  the  program  counter  is  incremented  by  two. 
Parameters:  <branch  address> 

RE Q:  (register  equal).  This  instruction  checks  for  a 
zero  value  in  register  two.  If  it  is  zero,  the  branch  flag 
is  complemented.  A conditional  branch  is  taken. 

4 

Parameters:  <branch  address> 


RGT:  (register  greater  than) . Register  two  is  checked 

for  a negative  sign.  If  present,  the  branch  flag  is  comple- 
mented. A conditional  branch  is  taken. 

Parameters:  <branch  address> 

SER:  (branch  on  size  error) . If  the  overflow  flag  is 

true,  then  the  program  counter  is  set  to  the  branch  address, 
and  the  overflow  flag  is  set  to  false.  If  it  is  false, 
then  the  program  counter  is  incremented  by  two. 

Parameters:  <branch  address>. 

The  next  three  instructions  are  of  similar  form  in 
that  they  compare  two  strings  and  set  the  branch  flag  if 
the  condition  is  true. 

Parameters:  <string  addr-l>  <string  addr-2>  <length  - 

address>  <branch  address> 

SEQ:  (strings  equal) . The  condition  is  true  if  the 

strings  are  equal. 

SGT:  (string  greater  than) . The  condition  is  true  if 

string  one  is  greater  than  string  two. 

SLT:  (string  less  than) . The  condition  is  true  if 

string  one  is  less  than  string  two. 

4 . Moves 

The  machine  supports  a variety  of  move  operations 
for  various  formats  and  types  of  data.  It  does  not  support 
direct  moves  of  numeric  data  from  one  memory  field  to  another. 
Instead,  all  of  the  numeric  moves  go  through  the  registers. 

The  next  seven  instructions  all  perform  the  same 
function.  They  load  a register  with  a numeric  value  and 
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differ  only  in  the  type  of  number  that  they  expect  to  see 
in  memory  at  the  <number  address>.  All  seven  instructions 
cause  the  program  counter  to  be  incremented  by  five.  Their 
common  format  is  given  below. 

Parameters:  <number  address>  <byte  length>  <byte  decimal 

count>  <byte  register  to  load> 

LOD:  (load  literal) . Register  two  is  loaded  with  a 

constant  value.  The  decimal  point  indicator  is  not  set  in 
this  instruction.  The  literal  will  have  an  actual  decimal 
point  in  the  string  if  required. 

LDl:  (load  numeric).  Load  a numeric  field. 

LD2:  (load  postfix  numeric).  Load  a numeric  field  with 

an  internal  trailing  sign. 

LDJ:  (load  prefix  numeric).  Load  a numeric  field  with 

an  internal  leading  sign. 

LD4:  (load  separated  postfix  numeric).  Load  a numeric 

field  with  a separate  leading  sign. 

LOS:  (load  separated  prefix  numeric).  Load  a numeric 

field  with  a separate  trailing  sign. 

LD6 : (load  packed  numeric).  Load  a packed  numeric 

field. 

MED:  (move  into  alphanumeric  edited  field) . The  edit 

mask  is  loaded  into  the  <to  address>  to  set  up  the  move,  and 
then  the  <from  address > information  is  loaded.  The  program 
counter  is  incremented  by  ten. 

Parameters:  <to  address > <from  address > < length  of  move> 

<edit  mask  address>  <edit  mask  length> 
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MNE:  (move  into  a numeric  edited  field) . First  the 

edit  mask  is  loaded  into  the  receiving  field,  and  then  the 


l . j 

information  is  loaded.  Any  decimal  point  alignment  required 

I 

will  be  performed.  If  truncation  of  significant  digits  is  a 
side  effect,  the  overflow  flag  is  not  set.  The  program 
counter  is  incremented  by  twelve. 

' Parameters:  <to  address>  <from  address>  <address  length  of 

move>  <edit  mask  address>  <address  mask  length*  <byte  to 
decimal  count>  <byte  from  decimal  count> 

MOV:  (move  into  an  alphanumeric  field) . The  memory 

field  given  by  the  <to  address>  is  filled  by  the  from  field 
for  the  <move  length>  and  then  filled  with  blanks  in  the 
following  positions  for  the  <fill  count>. 

Parameters:  <to  address>  <from  address>  <address  move 

length>  <address  fill  count> 

STI:  (store  immediate  register  two).  The  contents  of 


register  two  are  stored  into  register  zero  and  the  decimal 
count  and  sign  are  indicators  set. 

Parameters:  none. 

The  store  instructions  are  grouped  in  the  same  order 
as  the  load  instructions.  Register  two  is  stored  into  memory 
at  the  indicated  location.  Alignment  is  performed  and  any 
truncation  of  leading  digits  causes  the  overflow  flag  to  be 
set.  All  five  of  the  store  instructions  cause  the  program 
counter  to  be  incremented  by  four.  The  format  for  these 
instructions  is  as  follows. 

Parameters:  <address  to  store  into>  <byte  length>  <byte 

decimal  count> 
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MNE:  (move  into  a numeric  edited  field).  First  the 

edit  mask  is  loaded  into  the  receiving  field,  and  then  the 
information  is  loaded.  Any  decimal  point  alignment  required 
will  be  performed.  If  truncation  of  significant  digits  is  a 
side  effect,  the  overflow  flag  is  not  set.  The  program 
counter  is  incremented  by  twelve. 

Parameters:  <to  address>  <from  address>  <address  length  of 

move>  <edit  mask  address>  <address  mask  length>  <byte  to 
decimal  count*  <byte  from  decimal  count> 

MOV:  (move  into  an  alphanumeric  field) . The  memory 

field  given  by  the  <to  address>  is  filled  by  the  from  field 
for  the  <move  length>  and  then  filled  with  blanks  in  the 
following  positions  for  the  <fill  count>. 

STI:  (store  immediate  register  two).  The  contents  of 

register  two  are  stored  into  register  zero  and  the  decimal 
count  and  sign  are  indicators  set. 

Parameters:  none. 

The  store  instructions  are  grouped  in  the  same  order 
as  the  load  instructions.  Register  two  is  stored  into  memory 
at  the  indicated  location.  Alignment  is  performed  and  any 
truncation  of  leading  digits  causes  the  overflow  flag  to  be 
set.  All  five  of  the  store  instructions  cause  the  program 
counter  to  be  incremented  by  four.  The  format  for  these 
instructions  is  as  follows. 

Parameters:  <address  to  store  into>  <byte  length>  vbyte 

decimal  count> 

i 
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STO:  (store  numeric) . Store  into  a numeric  field. 

ST1 : (store  postfix  numeric) . Store  into  a numeric 

field  with  an  internal  trailing  sign. 

ST2:  (store  prefix  numeric).  Store  into  a numeric 

field  with  an  internal  leading  sign. 

Si 3:  (store  separated  postfix  numeric) . Store  into 

a numeric  field  with  a separate  trailing  sign. 

ST4 : (store  separated  prefix  numeric).  Store  into  a 

numeric  field  with  a separate  leading  sign. 

STS : (store  packed  numeric).  Store  into  a packed 

numeric  field. 

5.  Input-Output 

The  following  instructions  perform  input  and  output 
operations.  Files  are  defined  as  having  the  following 
characteristics:  they  are  either  sequential  or  random  and, 

in  general,  files  created  in  one  mode  are  not  required  to 
be  readable  in  the  other  mode.  Standard  files  consist  of 
fixed  length  records,  and  variable  length  files  need  not  be 
readable  in  a random  mode.  Further,  there  must  be  some 
character  or  character  string  that  delimits  a variable  length 
record. 

ACC:  (accept).  Read  from  the  system  input  device  into 

memory  at  the  location  given  by  the  memory  address  . The 
program  counter  is  incremented  by  three. 

Parameters:  <memory  address>  <byte  length  of  read> 
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CLS:  (close).  Close  the  file  whose  file  control  block 

is  addressed  by  the  <fcb  address>.  The  program  counter  is 
incremented  by  two. 

Parameters:  <fcb  address> 

DIS:  (display).  Print  the  contents  of  the  data  field 

pointed  to  by  <memory  address>  on  the  system  output  device 
for  the  indicated  length.  The  program  counter  is  incremented 
by  three. 

Parameters:  <memory  address>  <byte  length> 

There  are  three  open  instructions  with  the  same 
format.  In  each  case,  the  file  defined  by  the  file  control 
block  referenced  will  be  opened  by  the  mode  indicated.  The 
program  counter  is  incremented  by  two. 

OPN:  (open  a file  for  input). 

0P1:  (open  a file  for  output) . 

OP 2 : (open  a file  for  both  input  and  output).  This  is 

only  valid  for  files  on  a random  access  device. 

The  following  file  actions  all  share  the  same  format. 
Each  performs  a file  action  on  the  file  referenced  by  the 
file  control  block.  The’ record  to  be  acted  upon  is  given  by 
the  record  address  . The  program  counter  is  incremented  by 
six. 

Parameters:  <fcb  address>  <record  address>  <record  length  - 

address > 

DLS:  (delete  a record  from  a sequential  file).  Remove 

the  record  that  was  just  read  from  the  file.  The  file  is 
required  to  be  open  in  the  input-output  mode. 
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RDF:  (read  a sequential  file) . Read  the  next  record 

into  the  memory  area. 

WTF:  (write  a record  to  a sequential  file) . Append  a 

new  record  to  the  file. 


RVL:  (read  a variable  length  record) . 

WVL:  (write  a variable  length  record) . 

RWS : (rewrite  sequential).  The  rewrite  operation 

writes  a record  from  memory  to  the  file,  overlaying  the 
last  record  that  was  read  from  the  device.  The  file  must 
be  open  in  the  input-output  mode. 

The  following  file  actions  require  random  files 
rather  than  sequential  files.  They  all  make  use  of  a random 
file  pointer  which  consists  of  a <relative  address>  and  a 
<relative  length>.  The  memory  field  holds  the  number  to 
be  used  in  disk  operations  or  contains  the  relative  record 
number  of  the  last  disk  action.  The  relative  record  number 
is  an  index  into  the  file  which  addresses  the  record  being 
accessed.  After  the  file  action,  the  program  counter  is 
incremented  by  nine. 

Parameters:  <fcb  address>  <record  address>  <record  length  - 

address>  <relative  address>  <relative  length  - byte>. 

DLR:  (delete  a random  record) . Delete  the  record 

addressed  by  the  relative  record  number. 


RRR:  (read  random  relative) . Read  a random  record 

relative  to  the  record  number. 


RRS:  (read  random  sequential) . Read  the  next  sequential 

record  from  a random  file.  The  relative  record  number  of  the 


record  read  is  loaded  into  the  memory  reference. 

RWR:  (rewrite  a random  record) . 

WRR:  (write  random  relative) . Write  a record  into  the 

area  indicated  by  the  memory  reference. 

- WRS : (write  random  sequential).  Write  the  next  sequen- 

tial record  to  a random  file.  The  relative  record  number 
is  returned. 

6 . Special  Instructions 

The  remaining  instructions  perform  special  functions 
required  by  the  machine  that  do  not  relate  to  any  of  the 
previous  groups. 

NEG:  (negate) . Complement  the  value  of  the  branch 

. 

flag. 

Parameters:  no  parameters  are  required. 

LDI:  (load  a code  address  direct).  Load  the  code 

address  located  five  bytes  after  the  LDI  instruction  with 
the  contents  of  <memory  address>  after  it  has  been  converted 
to  hexidecimal. 

Parameters:  <memory  address>  <length  - byte> 

\ 1 

SCR:  (calculate  a subscript) . Load  the  subscript  stack 

with  the  value  indicated  from  memory.  The  address  loaded 
into  the  stack  is  the  <initial  address>  plus  an  offset. 

Multiplying  the  < field  length>  by  the  number  in  the  <memory 


reference>  gives  the  offset  value. 

Parameters:  <initial  address>  <field  length>  <memory  , 

reference>  <memory  length>  <stack  level> 


r 


STD:  (stop  display) . Display  the  indicated  information 

and  then  terminate  the  actions  of  the  machine. 

Parameters:  <memory  address>  < length  - byte> 

STP : (stop).  Terminate  the  actions  of  the  machine. 

Parameters : no  parameters  are  required. 

The  following  instructions  are  used  in  setting  up 
the  machine  environment  and  cannot  be  used  in  the  normal 
execution  of  the  machine. 

BST:  (backstuff) . Resolve  a reference  to  a label. 

Labels  may  be  referenced  prior  to  their  definition,  re- 
quiring a chain  of  resolution  addresses  to  be  maintained  in 
the  code.  The  latest  location  to  be  resolved  is  maintained 
in  the  symbol  table  and  a pointer  at  that  location  indi- 
cates the  next  previous  location  to  be  resolved.  A zero 
pointer  indicates  no  prior  occurrences  of  the  label.  The 
code  address  referenced  by  <change  address^  is  examined 
and  if  it  contains  zero,  it  is  loaded  with  the  new  address  . 
If  it  is  not  zero,  then  the  contents  are  saved,  and  the 
process  is  repeated  with  the  saved  value  as  the  change 
address  after  loading  the  <new  address>. 

Parameters:  <change  address>  <new  address> 

INT:  (initialize  memory) . Load  memory  with  the  <input 

string>  for  the  given  length  at  the  <memory  address>. 
Parameters:  <memory  address>  <address  length>  < input 

string> 

SCD:  (start  code) . Set  the  initial  value  of  the 

program  counter. 

Parameters:  <start  address> 
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TER:  (terminate) . Terminate  the  initialization  process 

i j 

and  start  executing  code. 

Parameters:  no  parameters  are  required. 


III.  MICRO-COBOL  COMPILER 


A.  GENERAL 

The  compiler  is  designed  to  read  the  source  language 
statements  from  a diskette,  extract  the  needed  information 
for  the  symbol  table,  and  write  the  output  code  back  onto 
the  diskette  all  in  one  pass.  The  compiler  is  defined  in 
two  parts  which  run  in  succession.  Part  one  builds  the 
symbol  table  and  leaves  it  in  memory  to  be  used  by  part  two. 
The  output  from  part  two  of  the  compiler  is  the  intermediate 
code  file. 

B.  CONTROL  FLOW 

After  part  one  of  the  compiler  has  completed  its  task 
it  loads  part  two  without  operator  intervention.  Internal 
control  of  the  compiler  is  the  same  for  both  part  one  and 
two.  The  parser  is  called  after  initialization  and  runs 
until  it  either  finishes  its  task  or  reaches  an  unrecoverable 
error  state.  The  major  subroutines  in  the  compiler  are  the 
scanner  and  the  production  case  statement  which  are  both 
controlled  by  the  parser. 

C . INTERNAL  STRUCTURES 

The  major  internal  structure  is  the  symbol  table,  which 
was  designed  as  a list  where  the  elements  in  the  list  are 
the  descriptions  of  the  various  symbols  in  the  program.  As 
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new  symbols  are  encountered  they  are  added  to  the  end  of  the 
list.  Symbols  already  in  the  list  can  be  accessed  through 
the  use  of  a "current  symbol  pointer".  The  location  of  items 
in  the  list  is  determined  by  checking  the  identifier  against 
a hash  table  that  points  to  the  first  entry  in  the  symbol 
table  with  that  hash  code.  A chain  of  collision 
addresses  is  maintained  in  the  symbol  table  which  links 
entries  which  have  the  same  hash  value.  All  of  the  items  in 
the  symbol  table  contain  the  following  information:  a colli- 
sion field,  a type  field,  the  length  of  the  identifier,  and 
the  address  of  the  item.  If  an  item  in  the  symbol  table  is 
a data  field,  the  following  information  is  included  in  the 
table:  the  length  of  the  item,  the  level  of  the  data  field, 

an  optional  decimal  count,  an  optional  multiple  occurrence 
count,  and  the  address  of  the  edit  field,  if  required.  If  the 
item  is  a file  name  then  the  following  additional  information 
is  included;  the  file  record  length,  the  file  control  block 
address,  and  the  optional  symbol  table  location  of  the  relative 
record  pointer.  If  the  item  is  a label,  then  the  only  addi- 
tional information  is  the  location  of  the  return  instruction 
at  the  end  of  the  paragraph  or  section. 

In  addition  to  the  symbol  table,  two  stacks  are  used  for 
storing  information:  the  level  stack  and  the  identifier 
stack.  In  both  cases,  they  are  used  to  hold  pointers  to  * 

entries  in  the  symbol  table.  The  identifier  stack  keeps 
track  of  multiple  identifier  occurrences  in  such  statements 
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as  the  GO  TO  DEPENDING  statement.  The  level  stack  is  used 
to  hold  information  about  the  levels  that  make  up  a record 
description. 

The  parser  has  control  of  a set  of  stacks  that  are  used 
in  the  manipulation  of  the  parse  states.  In  addition  to  the 
state  stack  that  is  required  by  the  parser,  part  one  has  a 
value  stack  while  part  two  has  two  different  value  stacks 
that  operate  in  parallel  with  the  parser  state  stack.  The 
use  of  these  stacks  is  described  below. 

D . PART  ONE 

The  first  part  of  the  compiler  is  primarily  concerned  with 
building  the  symbol  table  that  will  be  used  by  the  second 
part.  The  actions  corresponding  to  each  parse  step  are  explained 
in  the  sections  that  follow.  In  each  case,  the  grammar  rule 
that  is  being  applied  is  given,  and  an  explanation  of  what  pro- 
gram actions  take  place  for  that  step  has  been  included.  In 
describing  the  actions  taken  for  each  parse  step  there  has 
been  no  attempt  to  describe  how  the  symbol  table  is  constructed 
or  how  the  values  are  preserved  on  the  stack.  The  intent  of 
this  section  is  to  describe  what  information  needs  to  be 
retained  and  at  what  point  in  the  parse  it  can  be  determined. 
Where  no  action  is  required  for  a given  statement,  or  where 
the  only  action  is  to  save  the  contents  of  the  top  of  the 
stack,  no  explanation  is  given.  Questions  regarding  the 
actual  manipulation  of  information  should  be  resolved  by 
consulting  the  programs. 
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1 <program>  <id-div>  <e-div>  <d-div>  PROCEDURE 

Reading  the  word  PROCEDURE  terminates  the  first  part 
of  the  compiler. 

2 <id-div>  IDENTIFICATION  DIVISION.  PROGRAM-ID. 

<comment>  . <auth>  <date>  <sec> 

2 <auth>  AUTHOR  . <comment>  . 

4 j <empty> 

5 <date>  DATE-WRITTEN  . <comment>  . 

6 j < empty > 

7 <sec>  : :=  SECURITY  . <comment>  . 

8 | <empty> 

9 <comment>  ::=  <input> 

10  | <comment>  <input> 

11  <e-div>  ::=  ENVIRONMENT  DIVISION  . CONFIGURATION  SECTION. 

<scr-obj>  <i-o> 

12  <src-obj>  ::=  SOURCE-COMPUTER  . <comment>  <debug>  . 

OBJECT-COMPUTER  . <comment>  . 

13  <debug>  ::=  DEBUGGING  MODE 

Set  a scanner  toggle  so  that  debug  lines  will  be 
read. 

14  | <empty> 

15  <i-0>  INPUT-OUTPUT  SECTION  . FILE-CONTROL  . 

<f ile-control-list>  <id< 

16  | ^empty> 

17  <f ile-control-list>  <f ile-control-entry> 

18  | <f ile-control-list>  <file- 


control-entry> 


19  < file-control-entry > SELECT  <id>  <attribute-list>  . 

At  this  point  all  of  the  information  about  the  file 
has  been  collected  and  the  type  of  the  file  can  be 
determined.  File  attributes  are  checked  for  compata- 
bility  and  entered  in  the  symbol  table. 

|J  20  <attribute-list>  <one  attrib> 

21  | <attribute-list>  <one  attrib> 

22  <one-attrib>  ORGANIZATION  <org-type> 

23  | ACCESS  <acc-type>  <relative> 

24  | ASSIGN  <input> 

A file  control  block  is  built  for  the  file  using  an  INT 
operator . 

25  <org-type>  SEQUENTIAL 

No  information  needs  to  be  stored  since  the  default 
file  organization  is  sequential. 

26  | RELATIVE 
The  relative  attribute  is  saved  for  production  19. 

27  <acc-type>  SEQUENTIAL 

This  is  the  default. 

28  | RANDOM 

The  random  access  mode  needs  to  be  saved  for  produc- 
tion 19. 

29  <relative>  s :■  RELATIVE  <id> 

The  pointer  to  the  identifier  will  be  retained  by  the 
current  symbol  pointer,  so  this  production  only  saves 
a flag  on  the  stack  indicating  that  the  production  did 
occur . 
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30  I <empty> 

31  <id>  I-O-CONTROL  . <same-list> 

32  | <empty> 

33  <same-list>  : :=  <same-element> 

34  | <same-list>  < same-element > 

35  <same-element>  SAME  <id-string>  . 

36  <id-string>  <id> 

37  | <id-string>  <id> 

38  <d-div>  DATA  DIVISION  . <f ile-section>  <w  rk>  <link> 

39  <f ile-section>  : FILE  SECTION  . <file-list> 

Actions  will  differ  in  production  64  depending  upon 
whether  this  production  has  been  completed.  A flag 
needs  to  be  set  to  indicate  completion  of  the  file 


section. 


< empty > 


The  flag,  indicated  in  production  39,  is  set. 

41  <file-list>  <f ile-element> 

42  | <file-list>  <f ile-element> 

43  <files>  FD  <id>  ‘file-control  . •>.record-description> 

This  statement  indicates  the  end  of  a record  descrip- 
tion, and  the  length  of  the  record  and  its  address  can 
now  be  loaded  into  the  symbol  table  for  the  file 
name. 

44  <f ile-control>  s <file-list> 

45  | <empty> 

46  <file-list>  <f ile-element> 

47  I <file-list>  <f ile-element> 
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is  saved 


<data-id>  : :=  <id> 

| FILLER 

An  entry  is  built  in  the  symbol  table  to  record  infor- 
mation about  this  record  field.  It  cannot  be  used  ex- 
plicitly in  a program  because  it  has  no  name,  but  its 
attributes  will  need  to  be  stored  as  part  of  the  total 
record. 

<redefines>  ::=  REDEFINES  <id> 

The  redefines  option  gives  new  attributes  to  a previ- 
ously defined  record  area.  The  symbol  table  pointer 
to  the  area  being  redefined  is  saved  so  that  informa- 
tion can  be  transfered  from  one  entry  to  the  other. 

In  addition  to  the  information  saved  relative  to  the 
redefinition,  it  is  necessary  to  check  to  see  if  the 
current  level  number  is  less  than  or  equal  to  the  lev- 
el recorded  on  the  top  of  the  level  stack.  If  this  is 
true,  then  all  information  for  the  item  on  the  top  of 
the  stack  has  been  saved  and  the  stack  can  be  re- 
duced. 

| <empty> 

As  in  production  64,  the  stack  is  checked  to  see  if 
the  current  level  number  indicates  a reduction  of  the 
level  stack.  In  addition,  special  action  needs  to  be 
taken  if  the  new  level  is  01.  If  an  01  level  is  en- 
countered at  this  production  prior  to  production  39  or 
40  (the  end  of  the  file  area) , it  is  an  implied 
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redefinition  of  the  previous  01  level.  In  the  working 
storage  section,  it  indicates  the  start  of  a new 
record. 

66  <data-type>  : <prop-list> 

67  | <empty> 

68  <prop-list>  <data-elements 

69  | <prop-list>  <data-element> 

70  <data-element>  : :=»  PIC  <input> 

The  <input>  at  this  point  is  the  character  string  that 

defines  the  record  field.  It  is  analyzed  and  the  ex- 

tracted information  is  stored  in  the  symbol  table. 

71  | USAGE  COMP 

The  field  is  defined  to  be  a packed  numeric  field. 

72  | USAGE  DISPLAY 

The  DISPLAY  format  is  the  default,  and  thus  no  special 
action  occurs. 

73  I SIGN  LEADING  <separate> 

This  production  indicates  the  presence  of  a sign  in  a 
numeric  field.  The  sign  will  be  in  a leading  posi- 
tion. If  the  <separate>  indicator  is  true,  then  the 
length  will  be  one  longer  than  the  picture  clause,  and 
the  type  will  be  changed. 

74  I SIGN  TRAILING  <separate> 

The  same  information  required  by  production  73  must  be 
recorded,  but  in  this  case  the  sign  is  trailing  rather 
than  leading. 

75  | OCCURS  <integer> 
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The  type  must  be  set  to  indicate  multiple  occurrences, 
and  the  number  of  occurrences  saved  for  computing  the 
space  defined  by  this  field. 

76  | SYNC  <direction> 

Syncronization  with  a natural  boundary  is  not  required 
by  this  machine. 

77  | VALUE  <literal> 

The  field  being  defined  will  be  assigned  an  initial 
value  determined  by  the  value  of  the  literal  through 
the  use  of  an  INT  operator.  This  is  only  valid  in  the 
WORKING- STORAGE  SECTION. 

78  <direction>  : :=  LEFT 

79  | RIGHT 

80  | <empty> 

81  <separate>  ::=  SEPARATE 

The  separate  sign  indicator  is  set  on. 

82  | <empty> 

83  <literal>  <input> 

The  input  string  is  checked  to  see  if  it  is  a valid 

numeric  literal,  and  if  valid,  it  is  stored  to  be  used 

in  a value  assignment. 

84  | <lit> 

This  literal  is  a quoted  string. 

85  | ZERO 

As  is  the  case  of  all  literals,  the  fact  that  there  is 
a pending  literal  needs  to  be  saved.  In  this  case  and 
the  three  following  cases,  an  indicator  of  which 
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literal  constant  is  being  saved  is  all  that  is  re- 
quired. The  literal  value  can  be  reconstructed 
later. 


86 

| SPACE 

• 

87 

| QUOTE 

88 

<integer>  ::=  <input> 

The  input  string  is  converted  to  an  integer  value  for 
later  internal  use. 

89  <id>  <input> 

The  input  string  is  the  name  of  an  identifier  and  is 
checked  against  the  symbol  table.  If  it  is  in  the  sym- 
bol table,  then  a pointer  to  the  entry  is  saved.  If 
it  is  not  in  the  symbol  table,  then  an  entry  is  added 
and  the  address  of  that  entry  is  saved. 

E.  PART  TWO 

The  second  part  includes  all  of  the  PROCEDURE  DIVI- 
SION, and  is  the  part  where  code  generation  takes  place.  As 
in  the  case  of  the  first  part,  there  was  no  intent  to  show 
how  various  pieces  of  information  were  retrieved  but  only 
what  information  was  used  in  producing  the  output  code. 

1 <p-div>  : s=  PROCEDURE  DIVISION  <using>  . 

<proc-body>  EOF 

This  production  indicates  termination  of  the  compila- 
tion. If  the  program  has  sections,  then  it  will  be 
necessary  to  terminate  the  last  section  with  a RET  0 
instruction.  The  code  will  be  ended  by  the  output  of 
a TER  operation. 
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2  <using>  ::=  USING  id-string 
Not  implemented. 
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3 | <empty> 

4 <id-string>  <id> 

The  identifier  stack  is  cleared  and  the  symbol  table 
address  of  the  identifier  is  loaded  into  the  first 
stack  location. 

5 | <id-string>  <id> 

The  identifier  stack  is  incremented  and  the  symbol 
table  pointer  stacked. 

6 <proc-body>  : :*  «■  paragraph  > 

7 | <proc-body>  <paragraph> 

8 <paragraph>  ::=  <id>  . <sentence-list> 

The  starting  and  ending  address  of  the  paragraph  are 
entered  into  the  symbol  table.  A return  is  emitted  as 
the  last  instruction  in  the  paragraph  (RET  0) . When 
the  label  is  resolved,  it  may  be  necessary  to  produce 
a BST  operation  to  resolve  previous  references  to  the 
label. 

9 | <id>  SECTION  . 

The  starting  address  for  the  section  is  saved.  If  it 
is  not  the  first  section,  then  the  previous  section 
ending  address  is  loaded  and  a return  (RET  0)  is 
output.  As  in  production  8,  a BST  may  be  produced. 

10  <sentence-list>  ::=  <sentence>. 

11  | <sentence-list>  <sentence>  . 
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12  <sentence>  ::=  <imperative> 

13  | <conditional> 

14  | ENTER  <id>  <opt-id> 

This  construct  is  not  implemented.  An  ENTER  allows 
statements  from  another  language  to  be  inserted  in 
the  source  code. 

15  <imperative>  ::=  ACCEPT  <subid> 

ACC  <address>  <length> 

16  | <arithmetic> 

17  | CALL  <lit>  <using> 

This  is  not  implemented. 

18  CLOSE  id 

CLS  file  control  block  address 

19  | <file-act> 

20  | DISPLAY  <lit/id>  <opt-lit/id> 

The  display  operator  is  produced  for  the  first  literal 
or  identifier  (DIS  <address>  <length>) . If  the  second 
value  exists,  the  same  code  is  also  produced  for  it. 


RET  0 


BRN  <address> 


EXIT  <program-id> 


GO  <id> 


GO  <id-string>  DEPENDING  <id> 


GDP  is  output,  followed  by  a number  of  parameters: 
<the  number  of  entries  in  the  identifier  stack>  <the 


length  of  the  depending  identifier  <the  address  of 
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the  depending  identifier^  <the  address  of  each 
identifier  in  the  stack>. 

24  | MOVE  <lit/id>  TO  <subid> 

The  types  of  the  two  fields  determine  the  move  that  is 
generated.  Numeric  moves  go  through  register  two 
using  a load  and  a store.  Non-numeric  moves  depend  upon 
the  result  field  and  may  be  either  MOV,  MED  or  MNE. 

Since  all  of  these  instructions  have  long  parameter 
lists,  they  have  not  been  listed  in  detail. 

25  | OPEN  <type-action>  <id> 

This  produces  either  OPN,  0P1,  or  0P2  depending  upon 
the  <type-action> . Each  of  these  is  followed  by  a 
file  control  block  address. 

26  | PERFORM  < id>  <thru>  <finish> 

The  PER  operation  is  generated  followed  by  the  <branch 
address>  <the  address  of  the  return  statement  to  be 
set>  and  <the  next  instruction  address>. 


27 

j <read-id> 

28 

STOP  <terminate> 

If  there  is  a terminate  message,  then  STD  is  produced 
followed  by  <message  address>  "-message  length> . Other- 
wise STP  is  emitted. 

29  <conditional>  ::=  <arithmetic>  <size-error>  <imperative> 

A BST  operator  is  output  to  complete  the  branch  around 
the  imperative  from  production  65. 

30  | <file-act>  <invalid>  <imperative> 
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A BST  operator  is  output  to  complete  the  branch  from 
production  64. 

| <if-nonterminal>  <condition>  <action> 
ELSE  < imperative > 

NEG  will  be  emitted  unless  <condition>  is  a 
"NOT  <cond-type>" , in  which  case  the  two  negatives 
will  cancel  each  other. 

Two  BST  operators  are  required.  The  first  fills  in 
the  branch  to  the  ELSE  action.  The  second  completes 
the  branch  around  the  <imperative>  which  follows  ELSE. 

| <read-id>  <special>  <imperative> 

A BST  is  produced  to  complete  the  branch  around  the 
<imperative> . 

<Arithmetic>  : :=  ADD  <l/id>  <opt-l/id>  TO  <subid>  <round> 
The  existence  of  multiple  load  and  store  instructions 
make  it  difficult  to  indicate  exactly  what  code  will 
be'  generated  for  any  of  the  arithmetic  instructions. 

The  type  of  load  and  store  will  depend  on  the  nature 
of  the  number  involved,  and  in  each  case  the  standard 
parameters  will  be  produced.  This  parse  step  will  in- 
volve the  following  actions:  first,  a load  will  be  em- 
itted for  the  first  number  into  register  zero.  If 
there  is  a second  number,  then  a load  into  register 
one  will  be  produced  for  it,  followed  by  an  ADD  and  a 
STI.  Next  a load  into  register  one  will  be  generated 
for  the  result  number.  Then  an  ADD  instruction  will 


be  emitted.  Finally,  if  the  round  indicator  is  set,  a 
RND  operator  will  be  produced  prior  to  the  store. 

| DIVIDE  <l/id>  INTO  <subid>  <round> 

The  first  number  is  loaded  into  register  zero.  The 
second  operand  is  loaded  into  register  one.  A DIV 
operator  is  produced,  followed  by  a RND  operator  prior 
to  the  store,  if  required. 

| MULTIPLY  <l/id>  BY  <subid>  <round> 

The  multiply  is  the  same  as  the  divide  except  that  a 
MUL  is  produced. 

| SUBTRACT  <l/id>  <opt-l/id>  FROM 
<subid>  <round> 

Subtraction  generates  the  same  code  as  the  ADD  except 
that  a SUB  is  produced  in  place  of  the  last  ADD. 
<file-act>  ::=  DELETE  <id> 

Either  a DLS  or  a DLR  will  be  produced  along  with  the 
required  parameters. 

REWRITE  <id> 

Either  a RWS  or  a RWR  is  emitted,  followed  by  parame- 
ters. 

WRITE  <id>  <special-act> 

There  are  four  possible  write  instructions:  WTF,  WVL, 
WRS,  and  WRR. 

<condition>  : :=  <lit/id>  <not>  <cond-type> 

One  of  the  compare  instructions  is  produced.  They  are 
CAL,  CNS,  CNU,  RGT,  RLT,  REQ,  SGT,  SLT,  and  SEQ.  Two 


load  instructions  and  a SUB  will  also  be  emitted  if 
one  of  the  register  comparisons  is  required. 
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<cond-type> 

NUMERIC 

42 

1 

ALPHABETIC 

43 

1 

<compare>  <lit/id> 

44 

<not>  s : * NOT 

NEG  is  emitted  unless  the  NOT  is 
part  of  an  IF  statement  in  which  case  the  NEG  in 
the  IF  statement  is  cancelled. 

45  | <empty> 

46  <compare>  GREATER 

47  | LESS 

48  | EQUAL 

49  <ROUND>  = ROUNDED 

50  | <empty> 

51  <terminate>  <literal> 

52  | RUN 

53  <special>  : <invalid> 

54  | END 

An  ERO  operator  is  emitted  followed  by  a zero.  The 
zero  acts  as  a filler  in  the  code  and  will  be  back- 
stuffed  with  a branch  address.  In  this  production  and 
several  of  the  following,  there  is  a forward  branch  on 
a false  condition  past  an  imperative  action.  For  an 
example  of  the  resolution,  examine  production  32. 

55  <opt-id>  is-  <subid> 

56  | empty 
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57 

<action>  : 

:*  <imperative> 

BRN  0 

58 

BRN  0 

| NEXT  SENTENCE 

59 

<thru>  : : ■ 

THRU  <id> 

60 

1 

empty 

61 

<finish>  : 

:=  <l/id>  TIMES 

1 01  <address>  <length>  DEC  0 

62 

| UNTIL  <condition> 

63 

| empty 

64 

<invalid'* 

INVALID 

INV  0 

65  «.size-error > : :*  SIZE  ERROR 

SER  0 

66  <special-act>  <when>  ADVANCING  <how-many> 

67  | ^ empty > , 

68  <when>  BEFORE 

69  | AFTER 

70  <how-many>  : < integer > 

71  | PAGE 

72  <type-action>  : s-  INPUT 

73  | OUTPUT 

74  | 1-0 

75  <*ubid>  <subscript> 

76  | id 

77  <integer'>  <input> 
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The  identifier  is  checked  against  the  symbol  table,  if 
it  is  not  present,  it  is  entered  as  an  unresolved  la- 
bel. 

79  <l/id>  ::=  <input> 

The  input  value  may  be  a numeric  literal.  rf  so,  it 
is  placed  in  the  constant  area  with  an  1NT  operand. 

If  it  is  not  a numeric  literal,  then  it  must  be  an 
identifier,  and  it  is  located  in  the  symbol  table. 

80  | <subscript> 

81  | ZERO 


82 

<subscript>  ::=  <id>  ( <input>  ) 

If  the  identifier  was  defined  with 

a USING 

option , 

then  the  input  string  is  checked  to  see  if 

it  is  a 

number  or  an  identifier.  If  it  is 

an  identifier,  then 

an  SCR  operator  is  produced. 

83 

<opt-l/id>  : :=  <l/id> 

84 

| < empty > 

85 

<nn-lit>  <lit> 

The  literal  string  is  placed  into 

the  constant  area 

using  an  INT  operator. 

86 

| SPACE 

87 

| QUOTE 

88 

<literal?  <nn-lit> 

89 

| <input> 

The  input  value  must  be  a numeric 

literal 

to  be  valid 

and  is  loaded  into  the  constant  area  using 

an  INT. 

90 

1 ZERO 
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91 

<opt-lit/id> 

::=  <lit/id 

94 

| < empty > 

95 

<program-id> 

: <id> 

96 

| <empty  > 

97 

<read-id> 

READ  <id> 

There  are  four  read  operations:  RDF,  RVL,  RRS,  and 
RRR. 

98  <if-nonterminal> : :=IF 

The  intermediate  code  file  is  the  only  product  of  the 
compiler  that  is  retained.  All  of  the  needed  information 
has  been  extracted  from  the  symbol  table,  and  it  is  not  re- 
quired by  the  interpreter.  The  intermediate  code  file  can 
be  examined  through  the  use  of  the  DECODE  Program  which 
translates  the  output  file  into  a listing  of  mnemonics  fol- 
lowed by  the  parameters . 
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I . ORGANIZATION 

The  MICRO-COBOL  compiler  is  designed  to  run  on  an  8080 
system  in  an  interactive  mode,  and  requires  at  least  16K 
of  RAM  memory  along  with  a diskette  storage  device.  The 
compiler  is  composed  of  two  parts,  each  of  which  reads  a 
portion  of  the  input  file.  Part  one  reads  the  input 
program  and  builds  the  symbol  table.  At  the  end  of  the 
Data  Division,  part  one  is  overlayed  by  part  two  which  uses 
the  symbol  table  and  the  Procedure  Division  of  the  source 
program  to  produce  the  intermediate  code  which  is  written 
to  the  diskette  as  it  is  generated. 

The  BUILD  Program  reads  the  intermediate  code  file  and 
creates  the  executable  code  memory  image  which  is  used  by 
the  interpreter.  After  the  memory  image  has  been  created, 
the  BUILD  Program  loads  and  passes  control  to  the  inter- 
preter which  then  executes  the  intermediate  code. 
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II.  MICRO-COBOL  ELEMENTS 


The  procedure  to  compile  and  execute  a MICRO-COBOL 
source  program  is  covered  in  the  next  section.  This 
section  contains  a description  of  each  element  in  the 
language  and  shows  simple  examples  of  its  use.  The  follow- 
ing conventions  are  used  in  explaining  the  formats: 
elements  enclosed  in  broken  braces  < > are  themselves 
complete  entities  and  are  described  elsewhere  in  the 
manual.  Elements  enclosed  in  braces  { } are  choices,  one 
of  the  elements  which  is  to  be  used.  Elements  enclosed  in 
brackets  [ ] are  optional.  All  elements  in  capital 
letters  are  reserved  words  and  must  be  spelled  exactly. 

User  names  are  indicated  as  lower  case.  These  names 
have  been  restricted  to  12  characters  in  length.  The 
HYPO-COBOL  specification  requires  that  each  name  start 
with  a letter.  There  are  no  restrictions  in  MICRO-COBOL 
on  what  characters  must  be  in  any  position  of  a user  name. 
However,  it  is  generally  good  practice  to  avoid  the  use  of 
number  strings  as  names,  since  they  will  be  taken  as 
literal  numbers  wherever  the  context  allows  it.  For 
example  a record  could  be  defined  in  the  Data  Division 
with  the  name  1234,  but  the  command  MOVE  1234  TO  RECORD 1 
would  result  in  the  movement  of  the  literal  number  not 
the  data  stored. 
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The  input  to  the  compiler  does  not  need  to  conform  to 
standard  COBOL  format.  Free  form  input  will  be  accepted 
as  the  default  condition.  If  desired,  sequence  numbers 
can  be  entered  in  the  first  six  positions  of  each  line. 
When  sequence  numbers  are  used,  a compiler  parameter  must 
set  to  cause  the  compiler  to  ignore  them. 
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IDENTIFICATION  DIVISION 


ELEMENT : 


IDENTIFICATION  DIVISION  Format 


FORMAT : 


IDENTIFICATION  DIVISION. 


PROGRAM-ID.  <comment> . 


[AUTHOR.  <comment> . ] 
[DATA-WRITTEN . <comment> . ] 
[ SECURITY . < commen t> . ] 


DESCRIPTION: 


This  division  provides  information  for  program 
identification  for  the  reader.  The  order  of  the 
lines  is  fixed. 


EXAMPLES: 


IDENTIFICATION  DIVISION. 


PROGRAM- ID.  SAMPLE. 


AUTHOR.  PHIL  MYLET. 


1 
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ENVIRONMENT  DIVISION 


ELEMENT : 

ENVIRONMENT  DIVISION  Format 


FORMAT: 

ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE-COMPUTER.  <comment>  [DEBUGGING  MODE] . 
OBJECT-COMPUTER.  <comment> . 

[INPUT-OUTPUT  SECTION. 

FILE-CONTROL. 

<f ile-control-entry>  . . . 

[ I-O-CONTROL . 

SAME  file-name-1  file-name-2  [file-name-3] 
[file-name-4]  (f ile-name-5] . ] ] 


DESCRIPTION: 

This  division  determines  the  external  nature  of  a 
file.  In  the  case  of  CP/M  all  of  the  files  used 
can  be  accessed  either  sequentially  or  randomly 
except  for  variable  length  files  which  are  sequential 
only.  The  debugging  mode  is  also  set  by  this  section. 


1 


I 
■ i 
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<f  ile-control-entry  > 


ELEMENT : 

<file-control-entry> 

FORMAT : 

1. 

SELECT  file-name 

ASSIGN  implementor-name 
[ORGANIZATION  SEQUENTIAL] 

[ACCESS  SEQUENTIAL] . 

2. 

SELECT  file-name 

ASSIGN  implementor-name 
ORGANIZATION  RELATIVE 

[ACCESS  (SEQUENTIAL  [RELATIVE  data-name ] } ] . 
(RANDOM  RELATIVE  data-name  } 


DESCRIPTION: 

The  file-control-entry  defines  the  type  of  file 
that  the  program  expects  to  see.  There  is  no 
difference  on  the  diskette,  but  the  type  of  reads 
and  writes  that  are  performed  will  differ.  For 
CP/M  the  implementor  name  needs  to  conform  to  the 
normal  specifications. 

EXAMPLES: 

1. 

SELECT  CARDS 

ASSIGN  CARD.FIL. 
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SELECT  RANDOM-FILE 
ASSIGN  A. RAN 
ORGANIZATION  RELATIVE 


ACCESS  RANDOM  RELATIVE  RAND-FLAG 


DATA  DIVISION 


ELEMENT : 

DATA  DIVISION  Format 

FORMAT: 

DATA  DIVISION. 

[FILE  SECTION. 

[FD  file-name 

[BLOCK  integer-1  RECORDS] 

[RECORD  [integer-2  TO]  integer-3] 

[LABEL  RECORDS  {STANDARD)] 

(OMITTED) 

[VALUE  OF  implementor-name-1  literal-1 

[implementor-name-2  literal-2]  ...  ]. 

[ record-description-entry  ] . . . ] ... 
[WORKING-STORAGE  SECTION . 
[<record-description-entry> ] ...  ] 

[LINKAGE  SECTION. 

[<record-description-entry> ] ...  J 

DESCRIPTION: 

This  is  the  section  that  describes  how  the  data  is 
structured.  There  are  no  major  differences  from 
standard  COBOL  except  for  the  following:  1.  Label 
records  make  no  sense  on  the  diskette  so  no  entry 
is  required.  2.  The  VALUE  OF  clause  likewise  has 
no  meaning  for  CP/M.  3.  The  linkage  section  has 
not  been  implemented. 
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If  a record  is  given  two  lengths  as  in  RECORD  12  TO 
128,  the  file  is  taken  to  be  variable  length  and  can 
only  be  accessed  in  the  sequential  mode.  See  the 
section  on  files  for  more  information. 
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< comment* 


ELEMENT : 

< comment* 

FORMAT: 

any  string  of  characters 

DESCRIPTION: 

A comment  is  a string  of  characters.  It  may  include 
anything  other  than  a period  followed  by  a blank  or 
a reserved  word,  either  of  which  terminate  the 
string.  Comments  may  be  empty  if  desired,  but  the 
terminator  is  still  required  by  the  program. 

EXAMPLES: 

this  is  a comment 
anotheroneallruntogether 


8080b  16K 


<data-description-entry> 


ELEMENT : 

<data-description-entry>  Format 
FORMAT: 

level-number  {data-name} 

{filler} 

(REDEFINES  data-name] 

(PIC  character-string] 

(USAGE  (COMP)  ] 

{DISPLAY} 

(SIGN  (LEADING}  [SEPARATE]] 

{r RAILING} 

(OCCURS  integer] 

[SYNC  [LEFT  ] ] 

[RIGHT] 

[VALUE  literal] . 

DESCRIPTION: 

This  statement  describes  the  specific  attributes  of 
the  data.  Since  the  8080  is  a byte  machine,  there 
was  no  meaning  to  the  SYNC  clause,  and  thus  it  has 
not  been  implemented. 
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PROCEDURE  DIVISION 


ELEMENT : 

PROCEDURE  DIVISION  Format 


FORMAT: 

1. 

PROCEDURE  DIVISION  [USING  namel  [name2] 
section-name  SECTION. 

[paragraph-name . <sentence>  [<sentence> 

2. 

PROCEDURE  DIVISION  [USING  namel  [name2] 


. . [name5] ] 


• * ] ...  3 •• 


. . [name5] . 


•^sentence* 

ELEMENT: 

<sentence> 

FORMAT: 

imperative-statement* 

< conditional-statement* 

ENTER  verb 

DESCRIPTION: 

All  sentences  other  than  ENTER  fall  in  one  of  the 
two  main  categories.  ENTER  is  part  of  the  inter- 
program communication  module. 
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< imperative-statement 


ELEMENT : 

< imperative-statement 

FORMAT 


The  following  verbs  are  always  imperatives: 

ACCEPT 

CALL 

CLOSE 

DISPLAY 

EXIT 

GO 

MOVE 

OPEN 

PERFORM 

STOP 

The  following  may  be  imperatives: 

arithmetic  verbs  without  the  SIZE  ERROR  statement 
and  DELETE,  WRITE,  and  REWRITE  without  the  INVALID 
option. 
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FORMAT: 

ADD  (identifier)  [( identifier-1 ) ] TO  identifier-2 
(literal)  (literal  ) 

[ROUNDED]  [SIZE  ERROR  < imperative-statement ] 
DESCRIPTION: 

This  instruction  adds  either  one  or  two  numbers  to 
a third  with  the  result  being  placed  in  the  last 
location. 

EXAMPLES: 

ADD  10  TO  NUMBl 
ADD  X Y TO  Z ROUNDED. 

ADD  100  TO  NUMBER  SIZE  ERROR  GO  ERROR-LOC 
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ELEMENT : 


CALL 


FORMAT: 

CALL  literal  (USING  namel  [name2]  . 
DESCRIPTION: 

CALL  is  not  implemented. 


. [name5] 


CLOSE 


ELEMENT : 

CLOSE 

FORMAT: 

CLOSE  file-name 

DESCRIPTION: 

Files  must  be  closed  if  they  have  been  written. 
However,  the  normal  requirement  to  close  an  input 
file  prior  to  the  end  of  processing  does  not  exist. 

EXAMPLES : 

CLOSE  FI LEI 


CLOSE  RANDFILE 


DIVIDE 


fr; : 

i 
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ELEMENT : 

DIVIDE 

FORMAT: 

DIVIDE  (identifier)  INTO  identifier-1  [ROUNDED] 
(literal  ) 

[SIZE  ERROR  <imperative-statement> ] 

DESCRIPTION: 

The  result  of  the  division  is  stored  in  identifier-1; 
any  remainder  is  lost. 

EXAMPLES: 

DIVIDE  NUMB  INTO  STORE 
DIVIDE  25  INTO  RESULT 


1 
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EXIT 


ELEMENT : 


EXIT 


FORMAT: 


EXIT  [PROGRAM] 


DESCRIPTION: 


The  EXIT  command  causes  no  action  by  the  interpreter 
but  allows  for  an  empty  paragraph  for  the  construction 
of  a common  return  point.  The  optional  PROGRAM  state- 
ment is  not  implemented  as  it  is  part  of  the  inter- 
program communication  module. 


EXAMPLES: 


RETURN . 
EXIT. 


GO 

ELEMENT : 

GO 

FORMAT : 

1. 

GO  procedure-name 

2. 

GO  procedure-1  [procedure-2]  ...  procedure-20 
DEPENDING  identifier 

DESCRIPTION: 

The  GO  command  causes  an  unconditional  branch  to  the 
routine  specified.  The  second  form  causes  a forward 
branch  depending  on  the  value  of  the  contents  of 
the  identifier.  The  identifier  must  be  a numeric 
integer  value.  There  can  be  no  more  than  20  procedure 
names . 

EXAMPLES : 

GO  READ-CARD. 

GO  READ1  READ 2 READ 3 DEPENDING  READ-INDEX. 
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IF 

ELEMENT : 

IF 

FORMAT: 

IF  <condi.ti.on>  (imperative)  ELSE  imperative-2 
(NEXT  sentence) 

DESCRIPTION: 

This  is  the  standard  COBOL  IF  statement.  Note  that 
there  is  no  nesting  of  IF  statements  allowed  since 
the  IF  statement  is  a conditional. 

EXAMPLES : 

IF  A GREATER  B ADD  A TO  C ELSE  GO  ERROR-ONE. 

IF  A NOT  NUMERIC  NEXT  SENTENCE  ELSE  MOVE  ZERO  TO  A. 
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MOVE 

ELEMENT : 

MOVE 

FORMAT: 

MOVE  ( identif ier-l)  TO  identifier-2 
(literal  } 

DESCRIPTION: 

The  standard  list  of  allowable  moves  applies  to  this 
action.  As  a space  saving  feature  of  this  implementa- 
tion, all  numeric  moves  go  through  the  accumulators. 
This  makes  numeric  moves  slower  than  alphanumeric 
moves,  and  where  possible  they  should  be  avoided. 

Any  move  that  involves  picture  clauses  that  are 
exactly  the  same  can  be  accomplished  as  an  alpha- 
numeric move  if  the  elements  are  redefined  as 
alphanumeric;  also  all  group  moves  are  alphanumeric. 

EXAMPLES : 

MOVE  SPACE  TO  PRINT-LINE. 

MOVE  A (10)  TO  B(PTR) . 
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OPEN 


ELEMENT : 


OPEN 


FORMAT: 


OPEN  (INPUT  file-name  } 
(OUTPUT  file-name} 
(i-O  file-name  ) 


DESCRIPTION: 


All  three  types  of  OPENs  have  the  same  effect  on 
the  diskette.  However,  they  do  allow  for  internal 
checking  of  the  other  file  actions.  For  example, 
a write  to  a file  set  open  as  input  will  cause  a 
fatal  error. 


EXAMPLES : 


OPEN  INPUT  CARDS, 


OPEN  OUTPUT  REPORT-FILE. 
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PERFORM 


ELEMENT : 

PERFORM 


FORMAT 

1. 

PERFORM  procedure-name  [THRU  procedure-name-2] 

2. 

PERFORM  procedure-name  [THRU  procedure-name-2] 
(identifier}  TIMES 
( integer  } 

3. 

PERFORM  procedure-name  [THRU  procedure-name-2] 
UNTIL  <condition> 

DESCRIPTION: 

All  three  options  are  supported.  Branching  may  be 
either  forward  or  backward,  and  the  procedures 
called  may  have  perform  statements  in  them  as  long 
as  the  end  points  do  not  coincide  or  overlap. 


EXAMPLES : 

! I 

PERFORM  OPEN-ROUTINE. 

PERFORM  TOTALS  THRU  END-REPORT. 

PERFORM  SUM  10  TIMES. 

PERFORM  SKIP-LINE  UNTIL  PG-CNT  GREATER  60. 

» 
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RfiAD 

ELEMENT: 

READ 

FORMAT : 

1. 

READ  file-name  INVALID  < imperative-statement5, 

2. 

READ  file-name  END  < imperative-statement5, 
DESCRIPTION: 

The  invalid  condition  is  only  applicable  to  files 
in  a random  mode.  All  sequential  files  must  have 
an  END  statement. 

EXAMPLES : 

READ  CARDS  END  GO  END-OF-FILE. 

READ  RANDOM-FILE  INVALID  MOVE  SPACES  TO  REC-1 . 
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REWRITE 


ELEMENT: 

REWRITE 

FORMAT: 

REWRITE  file-name  [INVALID  < imperative2*  ] 

DESCRIPTION: 

REWRITE  is  only  valid  for  files  that  are  open  in 
the  1-0  mode.  The  INVALID  clause  is  only  valid 
for  random  files.  This  statement  results  in  the 
current  record  being  written  back  into  the  place 
that  it  was  just  read  from.  Note  that  this  requires 
a file  name  not  a record  name. 

EXAMPLES: 

REWRITE  CARDS. 

REWRITE  RAND-1  INVALID  PERFORM  ERROR-CHECK. 
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FORMAT : 

STOP  { RUN  } 

{ literal) 

DESCRIPTION: 

This  statement  ends  the  running  of  the  interpreter. 
If  a literal  is  specified,  then  the  literal  is 
displayed  on  the  console  prior  to  termination  of 
the  program. 

EXAMPLES : 

* 

STOP  RUN. 

STOP  1. 

STOP  "INVALID  FINISH". 
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SUBTRACT 


ELEMENT : 

SUBTRACT 

FORMAT: 

SUBTRACT  { identif ier-l)  [identifier-2]  FROM  identifer-3 
(literal-1  } [literal-2  ] 

[ROUNDED]  [SIZE  ERROR  < imperat ive-statement*  ] 

DESCRIPTION; 

Identifier-3  is  decremented  by  the  value  of 
identifier/literal  one,  and,  if  specified, 
identifier/literal  two.  The  results  are  stored 
back  in  identifier-3.  Rounding  and  size  error 
options  are  available  if  desired. 

EXAMPLES : 

SUBTRACT  10  FROM  SUB (12). 

SUBTRACT  A B FROM  C ROUNDED. 
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WRITE 


ELEMENT : 

WRITE 

FORMAT: 

1. 

WRITE  file-name  [{BEFORE}  ADVANCING  (INTEGER}] 

(AFTER  } (PAGE  } 

2. 

WRITE  file-name  INVALID  imperative-statements 
DESCRIPTION: 

There  is  no  printer  on  the  8080  system  here,  so  the 
ADVANCING  option  is  not  implemented.  The  INVALID 
option  only  applies  to  random  files. 

EXAMPLES : 

WRITE  OUT-FILE. 

WRITE  RAND-FILE  INVALID  PERFORM  ERROR-RECOV. 
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<condition> 


ELEMENT : 


<condi.ti.on> 


FORMAT: 


RELATIONAL  CONDITION: 


{ identifier-! } [NOT]  (GREATER)  (identifier-2) 


(literal-1  ) 


CLASS  CONDITION: 


(LESS  ) (literal-2  ) 
( EQUAL  ) 


identifier  [NOT]  (NUMERIC  ) 

(ALPHABETIC) 


DESCRIPTION: 


It  is  not  valid  to  compare  two  literals.  The  class 
condition  NUMERIC  will  allow  for  a sign  if  the 
identifier  is  signed  numeric. 


EXAMPLES : 


A NOT  LESS  10. 


LINE  GREATER  "C" . 
NUMBl  NOT  NUMERIC. 
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COMPILER  PARAMETERS 


There  are  four  compiler  parameters  which  are 


controlled  by  entries  on  the  first  line  of  the  program. 

A parameter  consists  of  a dollar  sign  followed  by  a letter 


$L  — list  the  input  code  on  the  screen  as  the  program 
is  compiled.  Default  is  on.  Error  messages  will  be 
difficult  to  understand  with  this  parameter  turned  off, 
but  it  may  be  desirable  when  used  witha  slow  output  device. 


sequence  numbers  are  in  the  first  six  positions 


list  tokens  from  the  scanner.  Default  is  off 


This  section  explains  how  to  compile  and  execute 
MICRO-COBOL  source  programs.  The  compiler  expects  to  see 
a file  with  a type  of  CBL  as  the  input  file.  In  general, 
the  input  is  free  form.  If  the  input  includes  line  numbers 
then  the  compiler  must  be  notified  by  setting  the  appro- 
priate parameter.  The  compiler  is  started  by  typing 
COBOL  <file-name> . Where  the  file  name  is  the  system 
name  of  the  input  file.  There  is  no  interaction  required 
to  start  the  second  part  of  the  compiler.  The  output  file 
will  have  the  same  file  name  as  the  input  file,  and  will 
be  given  a file  type  of  CIN.  Any  previous  copies  of  the 
file  will  be  erased. 

The  interpreter  is  started  by  typing  EXEC  <file-name> 
The  first  program  is  a loader,  and  it  will  display  "LOAD 
FINISHED"  to  indicate  successful  completion.  The  run-time 
package  will  be  brought  in  by  the  build  program,  and 
execution  should  continue  without  interruption. 


V.  FILE  INTERACTIONS  WITH  CP/M 

The  file  structure  that  is  expected  by  the  program 
imposes  some  restrictions  on  the  system.  References  3 and 
4 contain  detailed  information  on  the  facilities  of  CP/M, 
and  should  be  consulted  for  details.  The  information  that 
has  been  included  in  this  section  is  intended  to  explain 
where  limitations  exist  and  how  the  program  interacts  with 
the  system. 

All  files  in  CP/M  are  on  a random  access  device,  and 
there  is  no  way  for  the  system  to  distinguish  sequential 
files  from  files  created  in  a random  mode.  This  means  that 
the  various  types  of  reads  and  writes  are  all  valid  to  any 
file  that  has  fixed  length  records.  The  restrictions  of 
the  ASSIGN  statement  do  prevent  a file  from  being  open  for 
both  random  and  sequential  actions  during  one  program. 

Each  logical  record  is  terminated  by  a carriage  return 
and  a line  feed.  In  the  case  of  variable  length  records, 
this  is  the  only  end  mark  that  exists.  This  convention  was 
adopted  to  allow  the  various  programs  which  are  used  in 
CP/M  to  work  with  the  files.  Files  created  by  the  editor, 
for  example,  will  generally  be  variable  length  files.  This 
convention  does  remove  the  capability  of  reading  variable 
length  files  in  a random  mode. 

All  of  the  physical  records  are  assumed  to  be  128 
bytes  in  length,  and  the  program  supplies  buffer  space  for 
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VI.  ERROR  MESSAGES 

COMPILER  FATAL  MESSAGES 

Bad  read  — disk  error,  no  corrective  action  can 
be  taken  in  the  program. 

Close  error  — unable  to  close  the  output  file. 

Make  error  — could  not  create  the  output  file. 

Memory  overflow  — the  code  and  constants  generated 
will  not  fit  in  the  alloted  memory  space. 

Open  error  — can  not  open  the  input  file,  or  no 
such  file  present. 

Symbol  table  overflow  — symbol  table  is  too  large 
for  the  allocated  space. 

Write  error  — disk  error,  could  not  write  a code 
record  to  the  disk. 

COMPILER  WARNINGS 

Extra  levels  — only  10  levels  are  allowed. 

File  type  — the  data  element  used  in  a read  or 
write  statement  is  not  a file  name. 

Invalid  access  — the  specified  options  are  not  an 
allowable  combination. 
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ID  Identifier  stack  overflow  — more  than  20  items  in 

a GO  TO  — DEPENDING  statement. 

IS  Invalid  subscript  — an  item  was  subscripted  but 

it  was  not  defined  by  an  OCCURS. 

IT  Invalid  typ“?  — the  field  types  do  not  match  for 

this  statement. 

LE  Literal  error  — a literal  value  was  assigned  to  an 

item  that  is  part  of  a group  item  previously  assigned 
a value.  ’ 

NF  No  file  assigned  — there  was  no  SELECT  clause  for 

this  file. 

NI  Not  implemented  — a production  was  used  that  is 

not  implemented. 

NN  Non-numeric  — an  invalid  character  was  found  in  a 

numeric  string. 

NP  No  production  — no  production  exists  for  the 

current  parser  configuration;  error  recovery  will 
automatically  occur. 

NV  Numeric  value  — a numeric  value  was  assigned  to  a 

non-numeric  item. 


PC 


Picture  clause  — an  invalid  character  or  set  of 
characters  exists  in  the  picture  clause. 


J 
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Paragraph  first  — a section  header  was  produced 
after  a paragraph  header,  which  is  not  in  a section. 


Redefine  nesting  — a redefinition  was  made  for  an 
item  which  is  part  of  a redefined  item. 


Redefine  length  — the  length  of  the  redefinition 
item  was  greater  than  the  item  that  it  redefined. 


Scanner  error  — the  scanner  was  unable  to  read  an 
identifier  due  to  an  invalid  character. 


Sign  error  — either  a sign  was  expected  and  not 
found,  or  a sign  was  present  when  not  valid. 


Significance  loss  — the  number  assigned  as  a value 
is  larger  than  the  field  defined. 


Type  error  — the  type  of  a subscript  index  is  not 
integer  numeric. 


Value  error  — a value  statement  was  assigned  to  an 
item  in  the  file  section. 


C.  INTERPRETER  FATAL  ERRORS 


Close  error  — the  system  was  unable  to  close  an 
output  file. 

Make  error  - the  system  was  unable  to  make  an 
input  file  on  the  disk. 


was:. 


F No  file  — an  input  file  could  not  be  opened. 

I Write  to  input  — a write  was  attempted  to  an 

input  file. 

. INTERPRETER  WARNING  MESSAGES 

End  mark  — a record  that  was  read  did  not  have  a 
carriage  return  or  a line  feed  in  the  expected 
location. 

Go  to  depending  --  the  value  of  the  depending 
indicator  was  greater  than  the  number  of  available 
branch  addresses. 

Invalid  character  — an  invalid  character  was  loaded 
into  an  output  field  during  an  edited  move.  For 
example,  a numeric  character  into  an  alphabetic-only 
field. 


Sign  invalid  — the  sign  is  not  a "+"  or  a 
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APPENDIX  B 


MICRO-COBOL  FILE  CREATION 

The  MICRO-COBOL  compiler  and  interpreter  source  files 
currently  exist  in  PLM80  and  are  edited  and  compiled  under 
ISIS  on  the  INTEL  MDS  System.  This  is  a description  of  the 
procedure  used  to  create  the  executable  files  required  to 
compile  and  interpret  MICRO-COBOL  programs.  The  MICRO-COBOL 
compiler  and  interpreter  run  under  CP/M  by  executing  the 
following  four  object  code  files. 

1.  COBOL.COM 

2.  PART2.COM 

3 . EXEC . COM 

4 . INTERP . COM 

These  four  files  are  created  from  the  following  six 
PLM80  source  programs. 

1.  PARTI. PLM 

2 . PART 2 . PLM 

3.  BUILD. PLM 

4 . INTERP . PLM 

5.  INTRDR. PLM 

6.  READER. PLM 

The  procedure  used  to  create  the  four  object  files 
involves  compiling,  linking,  and  locating  each  of  the  six 
source  files  under  ISIS.  The  DDT  program  is  then  used  under 
CP/M  to  construct  the  executable  files.  Each  of  the 
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following  steps  describe  the  action  to  be  taken  and,  where 
appropriate,  the  command  string  to  be  entered  into  the 
computer. 

1.  An  ISIS  system  diskette  containing  the  PLM80  compiler 
is  placed  into  drive  A and  a non-system  diskette  containing 
the  source  programs  is  placed  into  drive  B. 

2.  Compile  the  PLM  source  file  under  ISIS. 

PLM80  :F1 : <f ilename> . PLM  DEBUG 

DEBUG  saves  the  symbol  table  and  line  files  for  later 
use  during  debugging  sessions. 

3.  Link  the  PLM80  object  file. 

LINK  :Fls <f ilename> .OBJ,  TRINT.OBJ , PLM80 . LIB  TO 

:F1 : <filename> .MOD 

4.  Locate  object  file. 

LOCATE  :F1 : <f ilename> .MOD  CODE(103H) 

5.  Replace  ISIS  system  diskette  in  drive  A with  a CP/M 
system  diskette  and  reboot  the  system. 

6.  Transfer  the  located  ISIS  file  from  the  diskette 
in  drive  B to  the  CP/M  diskette  in  drive  A. 

FROMISIS  <filename> 

7.  Convert  the  ISIS  file  to  CP/M  executable  form. 

OBJCPM  < filename > 
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At  this  point  the  object  file  is  in  machine  readable 
form  and  will  run  under  CP/M  when  called  properly. 

INTERP.COM  and  PART2.COM  are  called  by  EXEC.COM  and  PART1.COM 
and  need  no  further  work.  EXEC.COM  and  PART1.COM  need  to 
be  constructed  from  the  remaining  four  files. 

EXEC.COM  is  created  by  entering  the  following  commands 
under  CP/M. 

1.  DDT  BUILD.COM 

2.  IINTRDR. HEX 

3.  R1C00 

4.  A1CB5 

5.  JMP  5 

6 . A1CC1 

7.  JMP  5 

8 . CONTROL- C 

9.  SAVE  29  EXEC.COM 

PART1.COM  is  created  by  entering  the  following  commands 
under  CP/M. 

1.  DDT  PART1.COM 

2.  I READER. HEX 

3.  RFBOO 

4.  A1F90 

5.  JMP  3100 

6.  Control-C 

7.  SAVE  44  COBOL.COM 
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MICRO-COBOL  programs  may  now  be  executed  in  the  following 
manner.  The  source  program  is  named,  <f ilename> . CBL.  The 
command,  "COBOL  <filename>",  causes  the  MICRO-COBOL  source 
program,  <f ilename> . CBL,  to  be  read  in  from  diskette  and 
compiled.  During  the  compile,  the  intermediate  code  file, 
<fiiename>.CIN,  is  written  out  to  diskette  as  it  is  generated 
The  command,  "EXEC  <filename>",  causes  the  file, 
<filename>.CIN,  to  be  executed. 


APPENDIX  C 

LIST  OF  INOPERATIVE  CONSTRUCTS 

The  following  is  a list  of  MICRO-COBOL  elements  that 
were  not  implemented  at  the  beginning  of  this  project.  In 
most  cases  code  had  been  written  to  implement  the  element 
but  is  was  either  incomplete  or  incorrect.  The  elements 
marked  with  an  asterisk  still  have  bugs  and  need  additional 
work. 

MULTIPLY 

<condition> 

STOP  <literal> 

IF 

PERFORM  <procedure  1>  THRU  <procedure  2> 

PERFORM  <procedure>  <n>  TIMES 
PERFORM  <procedure>  UNTIL  <condition> 

FILE  I/O  * 

Numeric  Edit  * 

The  following  HYPO-COBOL  elements  are  part  of  MICRO- 
COBOL  only  to  the  extent  that  they  are  defined  in  the 
grammar.  No  code  has  been  written  to  support  them. 

USING 

CALL 

ENTER 


<when>  ADVANCING  < how-many > 


■ fig V ■■■■■I ||MMBB| HB TT'  ET" 
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It  must  be  pointed  out  that  this  information  is  based 
only  on  informal  testing  with  very  simple  programs.  MICRO- 
COBOL  is  only  now  at  a stage  at  which  it  is  appropriate  to 
conduct  exhaustive  testing  using  the  HYPO-COBOL  Compiler 
Validation  System. 
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APPENDIX  D 


H 


MICRO-COBOL  PARSE  TABLE  GENERATION 

The  parse  tables  for  MICRO-COBOL  were  generated  on  the 
IBM  360  using  the  LALR(l)  parse  table  generator  described 
in  Reference  11.  There  are  basically  two  steps  involved 
in  generating  the  tables.  First,  a deck  of  cards  containing 
the  grammar  is  entered  into  the  computer  using  the  following 
JCLs 

//GO  EXEC  PGM-  LALR, REGION-2 2 OK 
//STEPLIB  DD  DSN-F0963 . LALR, UNIT-2314 , 

VOL-SER-LINDA, DISP-SHR 
//SYSPRINT  DD  S YSOUT- A, DCB- (RECFM-FB, 

LRECL-133 , BLKSIZE-3325)  , 

//SPACE- (CYL, (1,1) ) 

//NONTERM  DD  SPACE- (CYL, ( 1 , 1) ), UNI T-SYS DA 
//FSMDATA  DD  SPACE- (CYL, (1 , 1 )), UNIT-SYSDA 
//PTABLES  DD  SYSOUT-B, 

DCB- ( RECFM-FB , LRECL- 8 0 , BLKS I ZE- 8 0 0 ) 

//SYS IN  DD  * 

The  output  from  this  run  is  a listing  and  deck 
containing  the  tables  in  XPL  compatible  format.  This  deck 
is  then  translated  into  PLM  compatible  format  using  the 
following  JCL  and  an  XPL  program  which  is  available  in  the 
card  deck  library  in  the  Computer  Science  Department  at  the 
Naval  Postgraduate  School. 
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//EXEC  XCOM 
//COMP . SYS IN  DD  * 

//GO . SYSPUNCH  DD  SYSOUT-B, 

DCB- ( RECFM-FB , LRECL- 8 0 , BLKS I ZE- 8 0 0 ) 

//GO.SYSIN  DD  * 

The  tables  are  then  transferred  to  a diskette  and  edited 
into  the  PLM80  source  program  using  the  ISIS  COPY  and  EDIT 
features  on  the  INTEL  MDS  System. 
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24  A,  CND. 


MODULI  I NPOPliAT  I oti 

CODS  APCA  it IK  • OOSDm  l37T 

.APIAOlI  APCA  UZt  • COL  OH  4 ID 

MALltKjM  STACK  tin  • 400  .H  4D 

4T  wINCJ  PC  AC* 

0 PPOOAAM  CPPOA  v I 

II *>  OP  PU  N-04  COMPILATION 
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uu-lt  n-«a  vj  i coNAtLArro*  / "OC-ocl  inmm 

iBJICT  moc^jcI  •uivit^  in  **  smtiw  CAJ 

ONAIlS*  JNVOMD  «V  AWMO  A l tNT*0»  *L* 


IMULMTMxM) 

intaoa 

oa 


OA  mQOolC  «* 


• cotoi  :oNArd*  - imt«aa  «wtii»  - 

• THU  AAQOMN  U vAtklO  §V  TH«  fold  *«C0**N  VTU 
CINTWA  COH  MAS  ItlH  OAChCO*  **C  »IM>i  THf  COOC  INTO  m*mOAs 


MM  - wOAO  *01  NT 


jtaat  LiTtAACL*  vbam  • jtaat; no  wocatign  *o«  ^is  2 •' 

I NTIAA  AOC*« IS  lNlTtALvfTAAT>. 

I «00«tS!  INITIAL  ‘MMM- 

HON*  AAOC*DO*«vA.  A>. 

t-CCLAAf  A ivrt  A «.<+MSi. 

L M ro  L /•  AATC*  TO  ->  "JHA  OWI'  ~ 

«NO  MONA. 

HOMO  ••OCttdtvA.  A'BvT*, 

0CCU*A€  A OVtlr  A ACCAIU. 

L 00  TO  u /•  AATC*  to  ->  'iNA  BOOS'*  •* 

. BCTVJBN  * /•  ZAA  ->  -N0-0A-  •< 

VO  MONO. 


00  MMtd  L 

CALL  TtOHA  vltf,  <|  «|  «B»l  * >» 
IA  HOMO  vM.  SCM>  O 4 THCN 


/•  *«T  OMA  AOCACSS  •' 
CALL  tNTSAA. 


AQOULt  INA0ANAT10N 

coot  aa«a  iizi  • o*»rM 
VAAIAOLC  AACA  SIZI  • oogan 
MAMMON  STACK  IUS  • OAOCH 
14  lInAJ  *«AO 
B AAOOAAN  CAAOAvl* 

CNO  OA  AL.N-00  CONAILATION 
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IS19-U  *-04  2 1 COMPILATION  OP  (Otu.1  OUlwt 

OfcJfCT  OfSA.1  lLACIt'  IN  *1  OOtLv  0®J 
COMPlLtP  InvolBC  »V  *UHO  PI  OulU  »U1 


> 

10 


u 

14 

15 

10 


IF 

It 

1# 

10 

u 


22 

22 

24 

29 

24 

2? 

20 


JO 

21 

U 

22 

24 


#PAO*L BNOTHv  M • 

ouiu 

(O. 

♦ NOAMAlLv  OAO  li  4T  t04» 

• r*4t*  paooaam  »ok«i  tm C :oi4  output  **on  r«t  caooc  comp  let* 

4NC  OOtLCS  'Hi  iMvtftdNNtNT  POP  Tul  C04OL  lNT«*P4«TtA  -- 


PtCLAAf 

LIT 

wITltOCwV 

LITW4L-V  . 

•OOT 

ClT 

o . 

•004 

lit 

9 . 

TOUt 

lit 

‘4*. 

»4.« 

lit 

0 

POAtVtA 

lit 

h#«tLf  TOut  . 

oct 

4M4ISI 

INITIAL  v9CM> 

»CM2>Tf 

MiK 

PC® 

•VTt. 

»CM#VTt*N 

Min  oct 

22  > 

tVTt. 

1 

•VTt. 

4C'C'0 

4CCM8SS 

INITIAL  v 104m 

CHAP 

oo  ter 

40CO 

•vr« 

MMOC 

Lit 

104m 

lNT«AP4PCt 

v22> 

•vn 

t N I T l AL  \ 0.  CINTtAA 

C0C42N0T1UT 

•VTf 

INITIAL  T«Uf'. 

COM  0.  0.0.  0‘. 


4«4CtOiL0C4T10N 

LIT 

1C  40m 

lNTIAP#ACC>A«Sf 

4N4ISS 

INI T 14l  v COOOM > ■ 

INTfAPOCONTfNT 

miic 

INTfMMUAUS  AUOAtlS 

UOVTf 

•AMI 

iNTtAP«AOC>P«SS  v2.  ®VTf. 

COCtOCTA 

AOWfit 

Cl® VTf 

•AStP 

COOtICT®  ®VT*. 

OAfC 

40CMCSS. 

MAC*A 

OA4CO 

MSI  40C<ACSS. 

UOVTf 

MUO 

MM  ' 4 > IvTf, 

"ONI  •AOCCCOAI  ^ 4.  «\Tt*NA»^ 
OtCLAPf  4 •VTt.  4 A&C4U1 
CND  NOKL. 


N0N2  NOCICUIt  (M'  i VTf  fXTfANAL. 
C4CLAA*  * OVTI.  4 

PC  H0N2. 


•«  l NT  •CHAP  •00CtCHJ0fxC*O4l.' 
CtCwMI  CHAP  iVT*. 

CALL  H0Kls2.  CNAP'. 

INC  P41NTICNAP. 


CPLP  PAOCItuPC- 

CAu.  PPInT»CnAAv12>* 
CAll  P4lNTtCHAAviA>. 

«*©  calp. 


PAINT  PAOCftuAf.A-. 

0CCL**C  4 ACC*CJS 
call 

CALL  M0N12.  4>. 
PC  POINT 


0P« U NOCIC-OH  ' 4 • ®VT«. 
MCL44I  4 4C'C*4|J1- 
AfTUAN  M0H2  It.  4 ... 

«N0  OOfN. 

WOOT  PAOCtU*® 

4000  • 200T  CALL  4U* 

•no  Mooor 


MOVf  PAOCCtuAt  P*ON.  OUT  COUNT- 

occlaac  otort.  ;tjT  count  acc«css 

'P  Mil:  PAOM.  c 2AI8C  Ct  JT  • *V  Tf. 
OO  Mill  COUNT  •COUNT-1,  v”  OOOOOH 

p-0 

WflWWJHit 
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Ii 


im 


19 

1 

;«fTK4ST*4. 

14 

1 

«N0 

IP 

t 

§x>  xovt. 

14 

4 

OfTtCMNH  »«OCCM«  4VT1. 

19 

1 

t9  .4004  -4004  ♦ 4 .'•4u*9#4Nt‘ 

44 

I 

MX 

44 

1 

19  N0Htsl%.9C«>S>4  THtH 

41 

1 

oa 

41 

4 

C*.L  94 1 NT  \ v |N0  09 

44 

4 

C*CX  4C900T. 

49 

4 

•NO- 

44 

1 

4004*  44M, 

4? 

1 

•NO. 

44 

41TV4N  CM**. 

49 

1 

04  0ST9CN44. 

M 4 »4XTtCHM  NQCHoH. 

5i  1 wM«l*0CT4CN*4 

U t 1*0  NSXTKMM* 


n 4 STOOC  NvXKMIlv  COUNT 

94  t MOMI  COUNT  9>TC. 

99  l IP  C0C49NJT#*fT 

94  I NX 

5T  J C*U.  *«1NT<  x COM  K44049  ». 

M J C4LX  NKXT4CNMI 

99  S 4CTVAH. 

44  I CNO 

44  2 00  !•!  TO  COUNT, 

41  S cmvt|<mm, 

<1  1 MU  *4lvT#c*44l. 

♦4  I COOCKT*«COOC4CT*»4< 

49  1 »NO 

44  i M irm 


H'lwO  MO CEDOAE. 


1M 

2 

DKCLAAK 

92 

LIT 

K'  • 

n 

LIT 

S 

9* 

LIT 

11 

9Z 

LtT 

24 

94 

lXT 

22. 

9 T 

LIT 

3K  . 

PK 

LIT 

4f'. 

* IK 

lit 

'XX 

LIT 

44  . 

9X2 

lit 

41'. 

cop 

LIT 

42  . 

IHT 

LIT 

43  . 

KIT 

LIT 

44  . 

TO 

LIT 

43. 

SCO 

lXT 

44  . 

1M 

2 

00  POAEVKHi 

LL4 

3 

IK  CHM  < 91 

THKN  CAU.  fTOAEvl>. 

1X2 

3 

KLSK 

IK  O** 

c 

P3  thkn  call  stcak«;2). 

IX* 

3 

CLil 

IK  CHM 

< 

P4  THKI4  CALL  JT0*Kv2>. 

u.* 

2 

KLiC 

19  CHM 

< 

P3  THKN  CAU.  5T0«Iv4). 

1X9 

* 

bji 

ip  chm 

< 

P4  THKN  CAU.  ST0*K«.3>i 

X29 

2 

CJX 

ip  chm 

\ 

PT  THKN  CALL  ST0AK<4>, 

122 

3 

(Lit 

19  CHM 

c 

pk  then  call  ST0A*s7>. 

X 2* 

3 

KLSK 

ip  chm 

< 

P1K  THKN  call  STOAKvS>. 

XX* 

3 

(LSI 

tP  CHM 

c 

PL1  THKN  CALL  STOAKvlO>. 

UK 

3 

KLSK 

IP  CHM 

< 

PU  THKN  CALL  STO*f\U» 

UK 

3 

KLSK 

IP  CHM 

CCA  T>^H  CALL  STOAKvU'. 

L22 

3 

KLSK 

IP  CHM 

OOP  THEN  CAU.  0O4OKPKNC  l NO. 

U4 

3 

KLSK 

IP  CHM 

KST  THKN  CALL  KACKJ9HJPP. 

UK 

3 

KLSK 

IP  CHM 

INT  thkn  call  initialize. 

UK 

3 

KLSK 

IP  CHM 

TEA  THKN 

UK 

3 

DO. 

1*9 

4 

CALL  MINTv.  v LOAD  PlNlSHKD*  >>* 

141 

* 

AfTUAN. 

142 

4 

tHD* 

142 

2 

(LSI 

IP  CHM 

• 

JCC*  THEN  CALL  STMT  PCOOfi^ 

149 

3 

KLSK 

DO. 

144 

4 

IP  CHM 

O OP  PH  T>mi  CALL  MINTv  < LOAD 

14K 

4 

CALL  NKXT4CHAAJ 

14K 

4 

KND. 

1SK 

2 

2ND- 

191 

2 

CNO  KUILO. 

. 

MOOAAW  EXECUTION  STMT*  HERE 


192 

1 

PCK4KVTK AA<  22  > > PCK44VTKM. 

193 

1 

CALL  HOVKv  v CIN  . 4.  4.  4.  4>.PCt  * K.  7>i 

194 

1 

IP  OPEN  v PCK > •239  THEN 

139 

1 

DO- 

134 

2 

CALL  MINTv  v PIU  NOT  POUND  % >)> 

137 

2 

CALL  KEKOOT. 

134 

2 

END. 

13K 

1 

CALL  NEXTpCHM. 

144 

1 

CALL  KUILO* 

141 

1 

CALL  HOVtv  inteapkpcs.  PCS.  33  >* 

142 

1 

rC*4KVTE*Av22>  - 4. 

142 

1 

IP  0PKN<PCK>«25S  THEN 

144 

1 

00. 

149 

2 

CALL  MINTv  v ' INTERPRETER  NOT  POUND 

144 

2 

CAU.  KCKOOT. 

147 

2 

1ND. 

144 

1 

CALL  HOVE  v AK  ADKK4L0CAT I ON.  KKH.  **H>. 

14K 

1 

ADC*  • 44H.  CALL  AC-04.  /•  KAANCH  TO  44M 

171 

1 

END. 

noCHJLf  INPOAHATION 

COM  APIA  SI  21  • 0-MJ2N  14240 

vmiaele  sick  • o*-*:*  *rt' 

NAXlHUH  JTACX  SIZE  • 4412H  140 

227  LINKS  »EAO 
0 MOOAAN  |MO*<  S> 


two  OP  PL.H-KK  COMPILATION 
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rsu-ix  al-  *-*0  vj  i compilation  or  'iouu  parti 
OOJtCT  moduli  PLACED  IN  *1  M^Ti  08J 
COMPILE*  INVOKED  8V  PUi*8  Pi  P*«Tl  RLM 


•PAOELENGTh*  M > 

1 RRATl 

do- 

/•  MOAnflU.*  CJtQ  ttf  AT  1MH  •/ 

COBOL  COMPILER  - PART  1 •/ 


/•  0L08AL  OCCUPATIONS  *NO  LITERALS  •/ 

2 i DECLARE  LIT  LITERALLY  LITERALLY'. 

I 1 DECLARE 

MAX4MCMORY  LIT  21.99*'.  /•  TOA  OP  U5EA8LC  MEMORY 

INITIAL PROS  LIT  2C88H' 

AOA*cCNGTH  UXT  233' . 

PASSiPLEN  LIT  '44', 

CA  LIT  12'. 

Lf  LIT  18- 

Quart  lit  22*'. 

POUND  lit  '23H'. 

TRUE  LIT  '1'- 

FALSE  LIT  9'. 

FOREVER  LIT  WMILC  TRUE'; 


4 1 DECLARE  MAXRNO  L I THRALL V 184'./*  MAX  READ  COUNT  -✓ 

P1AXLNO  LITCRAU.V  *133'./+  «AX  LOOK  COUNT  */ 

MAXRNO  LITCRALLV  143'- /•  MAX  PUSH  COUNT  -✓ 

MAXSNO  LI TER ALL V '234'. MAX  ST ATI  COUNT 

STAATS  LITERALLY  '!'-✓*  START  STATE 

3 1 DECLARE  REAOl  <*>  6VTE 

DATAvO.  37.  44-  3C-  32-  4.  23-  59.  2-  14.  17.  22-  29-  53-  36-11-32-32-  39 
. 34-  34.  44.  9-  19.  32-  37.  6-  33-  3- 14. 13- 18.  20-  32-  28-  4f-  32-1-42-38-  34-  43-  1 
. 1- 1-  1-  1-  1-  1-  1-  L.  10- 1-  39- 1- 1-  L.  38-  48.  49-  38-  39-  1- 1.  38-  23-  24-  S3-  32-  41 

. 33-  48-  1-  7,  38.  1-  32-  1-  32-  32-  43.  1-  32-  1-  32-  1-  32-  47-  37.  4.  28-  32-  34.  48.  1-  1 

. 32-  3-  12-  12-  21-  22-  27.  1-  88.  1-  23-  24.  S3.  38-  31>i 

8 1 DECLARE  LOOKl<->  BYTE 

DATA<8-  8.  8-  23-  8-  9.  19-  8-  42-  8.  42-  8.  1-  8.  32-  8-  41-  8-  33-  8-  1-  8-  47 

.8-4-8-  34.  8-  48.  8.  33-  48-  68-  8.  1-  8-  32-  8- 1-  8.  1-  8-  11-  8.  88-  0.  7-  8.  32-  8-  32-  8 

-32-0)- 

7 1 DECLARE  APPLYK*)  8VTE 

DATA v 8.  0.  8.  8-  8-  0.  9-  18-  12-  14-  19-  8.  8-  8-  8.  8.  8.  181-  0-  8- 188.  8 

. 8-  8-  8-  8.  8-  97-  8.  27-  8-  8-  8-  69-  8-  91-  92-  8-  8.  91-  92-  8.  8.  8.  8.  13-  17-  8-  182 

- 183-  184.  0.  8-  8.  8.  8-  93-  8-  8-  34-  8-  8.  23-  38-  38-  39-  8-  21.  48.  32-  38.  87-  92-  94 

- 8 >i 

3 1 DECLARE  REA02<*>  8VTE 

DATAvE-  83-  37.  84,  134.  26-  37.  87.  21-  38-  31.  33-  39-  61-  88.  27.  234 

- 213-  31-  45-  188.  109-  223-  224.  233-  43-  218.  217.  22-  230-  229.  232-  231-  228.  ITS 

- 172-  169.  9-  226.  47-  198-  193-  7-  6-  11-  13-  13-  2-  3-  103.  14-  138.  4.  58-  28.  12-  16 

- 48-  171-  170-  44.  49-  19.  10-  48-  33.  36.  83-  68-  S3.  42-  148-  16-  23-  38.  108-  133 

. 148.  133-  133-  33.  138-  133,  132-  133.  137-  153.  38.  193-  23.  288-  234-  82-  52-  288 
. 168-  234.  24.  28.  107.  32-  34.  38- 17.  68-  164.  33.  38-  63-  48.  39  >, 

9 1 OCCLAAC  LOOK 2<m,  9VTE 

DATA<8-  3-  138.  6.  l3l.  29.  29.  132-  41-  02.  34-  124. 133-  69-  71-  06 
. 72-  137-  73-  138.  139-  SO.  84.  148.  88-  198.  88.  141-  69.  142-  184-  184.  184.  91-  169 
. 92-  93.  197.  211-  93-  143-  98.  97.  176.  99-  144.  143.  181-  182-  200-  102.  282-  104 

- 138;. 

10  1 DECLARE  APPLV2<*>  8VTE 

DATAvO-  0.  77.  Ill-  112-  147-  79.  114.  81-  82-  83-  78.  76.  117.  73.  136 
. 126-  163-  182-  100.  168-  183-  167.  118-  168.  188-  124-  179.  173.  94.  121.  74.  123 
. 120-  119-  187-  187.  188.  98.  192-  192-  191-  194-  LL3-  163.  128.  129.  127.  203.  283 

- 203.  204.  113-  123-  90-  122-  214.  213-  221-  219.  216.  222-  199.  83-  228.  116.  87 

- 110-  70-  174-  209-  207.  162-  182-  161  >; 

11  1 DECLARE  INDEX!*.*)  BYTE 

CAT  AC  8-  1-  2-  3-  4.  3-  6-  7-  6.  4.  4.  24.  4-  24-  4.  O-  14.  24.  189.  4.  IS.  16 
. 18-  24,  17.  16-  19.  16.  20-  22-  24.  23-  26.  28-  29.  34.  36.  37.  24.  24-  18-  36.  39-  *0 

, 42-  43-  44,  43-  48-  47.  48-  49.  16-  50.  36-  31-  16.  32-  33-  34.  S3-  38-  37  58.  80.  61 

. 82-  63-  64.  8.  83,  88-  69-  70-  71,  72-  73,  74.  73.  77.  79-  81-  63-  83.  87.  88.  89.  98.  92 
. 93-  94.  8-  8.  16.  93.  97.  97.  13-  103.  104.  183.  109-  24.  24.  24.  l,  3-  5-  8.  16.  12-  14 
. 16-  18.  28-  22-  24.  26.  28-  36.  34.  38-  38-  48-  42-  4*.  46-  48.  38.  32-  183.  149.  223 

- 227,  227.  198,  131-  133-  203-  159-  218.  161-  173-  212-  281-  177.  1-  2-  3-  3-  4.  4.  3.  3 

- 6.  6.  12-  13.  14-  14- 13.  IS-  16.  16.  17.  19-  19-  28.  20.  20-  22-  22-  23-  23-  24.  24.  23 

- 23-  26-  26-  27.  25.  29-  31-  32-  32-  33-  33-  33-  36.  38.  33.  33-  39.  39.  39.  39-  39.  42 

. 42-  43-  43-  44.  44.  43-  43-  48-  32-  32-  53-  S3.  54.  54.  53.  33.  38.  38.  38.  38.  38.  38 

. 38.  36-  38-  38.  36-  59.  39.  61-  61-  41-  61-  41-  82-87). 

12  1 DECLARE  Ir ©EX2-:*-  BYTE 

DATA*  0 ■ 1-  1-  L L 1-  1-  1-  5-  1-  1-  1-  1-  1>  1-  L 1*  1»  1-  1-  1-  1-  1.  1-  L>  1 


6 


.1.  l.J.U.LtLS.Il.Ll.  i.i.U.t.1 

1.  i.  1.  2.  L.  1.  l.  1-  1.  5.  2.  1,  1.  1,  1.  1.  i.  i.  2.  i.  2.  2.  *.  2.  L.  L.  1.  2.  1-  t.  1.  5.  3.  1 

. 2.  2.  *.  1.  X.  1.  4.  2.  i.  1.  L,  2.  2.  1.  2.  2.  2.  2.  2.  2.  2-  2.  i.  2.  2.  *.  2.  2.  2.  2.  2.  2.  2.  i 

2-  2-  5*  4*  22.  41,  54.  *».  71,  72.  72.  *0.  **•  2*.  I»  M.  W.  !•!.  J.  » ...  2.  2.  ft.  i.  • 

. ••  1.  7.  ft.  1.  0.  4.  0.  ••  1.  3.  0.  1.  1.  2.  L 2.  0.  •.  2.  1.  2.  2.  2-  •.  k.  2.  •.  A-  9.  J.  2.  2.  l 

. 4.  2,  2.  2.  i»  2.  1*  2.  2.  2.  2.  2.  2.  2.  2.  2.  2.  1*  4.  2.  2.  1.  2.  2.  2.  2.  i,  1.  k.  L.  2.  2.  1.  i 

> 1 1.  •>  I'  2. 1.  I.  2.  2.  2.  2.  2.  • •> » 

/•  I HD  OP  TAOLIS 
DIC LMI 

»•  JOINT  0ICLAAATI0N* 

THCSC  I Tinf  Ml  DICLAftID  TOOITHIA  IN  THIS  SECTION 
IN  OAOIA  TO  PACILITATI  TM«I*  MJNQ  SAVED  POA 
thk  sccond  nut  or  thc  compile* 


output #rc» 
oouoaiNo 
paint ppaod 

PAINT# TO* IN 

LIJTflNPUT 

SIOamum 

NfXT»svn 

pointia 

NIXT#AVAILAELf 

NAXAINTAMCN 

PILI#SCC*IN0 

ntUlSTORAQI 


C33'  OVTI 

•VTI 

•VTI 

•VTI 

IVTf 

•VTI 

NOOfttSS. 

aoopiss 

AOOAISS 

AOOAISS 

•VTI 

AOOAISS 


INITIALS 
INITIAL  vPAL*I>. 
initialvPalsi>. 
INlTlALvPALSt). 
INITIAL  *THUI>. 
INITIAL  <PALII>. 

INITIAL  vlNH>, 
INITIAL  <2022H>. 
INITIAL  <I22«H>, 
INITIAL  <rALSI>. 
INITIAL  <2 


'CiN' . •«  •.  •.  •>. 


/*•  1 o mjrrm  and  oloaalS 

INPAOOA  AOOAISS  INITIAL  <9CH>. 
INPUT#PC«  IASID  INAODA  <Z2)  «VTI. 
OUTPUT#PTA  AOOAISS. 

output #«upp  <ui>  ovti. 

OUTPUT #IND  ADO ACS S' 

output #cmaa  oascd  outputppta  ivtl 


NONi  PPOCIDUAI  <P. A>  IXTIANAL. 

OfCLAAI  A AOOAISS.  P iVTl. 

ire  noNi. 

nON2:  PPOCIDUAI  <P.  A>  *vn  lXTIAt<AL, 
OICLAW  P IVTI.  A AOOACSSi 
INO  N0N2. 

BOOT  PPOCIDUAI  IXTIANAL- 
DICLAAI  A AOOPCSS. 

IND  •OOTi 


PP I NT CHAP  PPOCIDUAI  <CHAA>. 

DICLAAI  CHAP  iVTt> 

CALL  NONA  <2.  CHAP  > i 
IND  PPINTCHAAi 

CALP  PPOCIDUAI. 

CALL  PAINTCMAAvCA>i 
CALL  PAINTCHAACLT)* 

INO  CALP- 

PAINT  PPOCIDUAI  <A>. 

DICLAAI  A AOOAISS. 

CALL  nONl  <•»  A)j 
INO  PAINT. 

PAINTAIAAOA  PPOCIDUAI  <CODI>i 
DICLAAI  C00I  AOOAI SS. 

CALL  CPLP' 

CALL  PAINTCHAA<HION<COO«>>. 

CALL  PAINTCMAA<LOy<CODi:>>i 

IND  PAINT9CAAOA. 

PATALJCAAOA  PPOCIDUAI v PIASON  > . 

DICLAAI  ACASON  ADDA IS S- 
CALL  PA  I NT f IAP0P  < PIASON  .• . 

CALL  TtnCvlIi. 

CALL  •oot. 

IND  PATALPIAPOA. 

OPIN  PPOCIDUAI. 

IP  NO N2  13.  I N2ADCA > •« 39  THIN  CALL  PATAL#t**0*v  0P'>» 
IND  OPIN. 

NOAIiimuT  PPOCIDUAI  «VTl. 

/•  ftCAT*  m INPUT  PI  Li  AND  ACTUANS  TPUI  IP  A PtCOAO 
►*AS  PfAC  »ALJI  IMPLIIJ  tm  ?P  A I LI  * 
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I 


i 


\ 

I ' 

In 

li; 

S 

I 


I 

■ 


32  2 OCCLAAf  OCNT  fVT«, 

31  2 19  <OCNT  -NO Niv2«.  INAUT9AC§> >>1  THEN  CKi.  9ATAL#«AA0Av  9A  >. 

39  2 AfTUAN  NOT  vDCNT  >» 

94  2 I NO  MOAC4INAUT. 

3T  1 MAM  WClU*t 

/•  OtUlTCi  ANV  CM  ST  1 NO  COAV  QA  TNI  OUTPUT  7IL1 
AND  CAtATtI  A NEW  COAV*/ 

m a call  noni v 19.  outaut9Ace>. 

99  a 19  N0N2v22.  0UTAUT9AC9 >-299  THEN  CALL  9ATAL9EAA0A v HA  >* 

41  a CND  NAM. 

44  1 MRIT190UTAVJT  AAOCIDUAC. 

/•  NMTCS  OUT  A MW 

41  2 CALL  N0NK24*  OUTAUT C9U99 > » SCT  ONA  •/ 

44  a 19  N0Nt<21.  OUTAVTfACOO#  THEN  call  9ATAL9CAA0A*  MO  ># 

44  a CALL  N0N&V24.  44H>i  '•  AftSCT  DMA  •/ 

47  2 CND  MAITC90UTAUT, 

49  1 NOVC  AAOCCDUACnSOUACK.  OCtriNATtON.  COUNT). 

MOVES  AOA  TMC  NUH9CA  09  9VT19  fACC  191(0  tv  COUNT  •- 
49  2 OCCLAAC  vSOUACt.  DESTINATION)  AOOAtSS. 

vf»9VTl  CASCO  SOUACC.  OttvTf  MUD  04  JT 1 NAT  I ON.  COUNT'  §vTf. 
79  2 00  UHtLK  v COUNT  -COUNT  - 1>  O 299. 

71  J OttVTf  •MOvTti 

72  1 SOJACC-SOUACC  *L. 

71  1 OCSTtNATION  • OtSTlNATION  - 1* 

74  1 CND. 

79  S (NO  MOVE. 

74  1 9XLL  9A0C«0UA«vA00A.CNAA.  COUNT >» 

rOVCS  CHAA  INTO  AOOA  90A  COUNT  9VT(S 
77  2 OCCLAAC  AOOA  AOOAESS. 

vCNAA.  COUNT.  OtfT  CASCO  AOOA > 9VT(. 

79  a 00  MHILC  < COUNT  -COUNT  -i'0299. 


79  1 OCST-CHAA. 

94  1 AOCA-AOOA  ♦ Li 

•1  1 Cto. 

42  2 CND  9 ILL. 

/•  - • • - • fCANNCA  LIT1 

•2  1 OCCLAAC 


LlTfAAL 

LIT 

'It' 

INAUTttTA 

lit 

12' 

ACAIOO 

LIT 

'1'. 

INVALIO 

LIT 

*9'» 

/•  • • • • SCANNCA  TA9LCS  - • • - 

94  1 OCCLAAC  T0KCN4TA9LC  <•>  9VTC  OATA 

/•  CONTAINS  TNC  TOLCN  NUN9CA  ONC  LCSS  THAN  THE  91 AST  ACSCAVCO  UOAO 
90A  IACH  LCNOTH  09  UOAO 

<9.  4. 1.  4.  9.  19.  22.  12.  14.  44.  47.  49.  91.  99.  94.  97>. 

TA4LS  v-i  tVTl  0ATAv'9O  . 09  TO'.  AlC*.  COMA  • DATA  . 9lLt 
. w€9T ' . 'NOOC  . SANC  ■ StON  . tVNC'.  2CA0 ’ . OLOCK  . LA9CL 
. QUOTE  . AIONT'.  SAACC-.  USAOC  . VALUE  . ACCESS  ASSION 
. AUTMOA-.  -9ILL1A'.  OCCUAS  . AANOON  AECOAO  • SELECT 
. 01S9LAV  leading  LINKAOC  ON I too  . ACCOAOS 
. ' SECTION  . DIVISION  ABLATIVE' . SCCUAITV  . SCAAAATE  . ITANOAAO 
. TAAILINO  . 0C9U00IN0  AAOCCDOAC  ACt-CAINBS 

AAOOAAH-ID  SCOUENTIAL  . CMVIAONNENT  l-O-CONTAOL 
. OATf-NAITTfN'.  '9!L*-C0N?A0L  . INAUT-OUTAUT  . '0A0ANI2ATI0N 
. CONAIOUAATION'.  IDENTtAICAT ION  . OBJECT -CONAUTfA 
SOUACC-CONAUTCA'.  UOAKlNO-STOAAOf  >. 

OAAfCT  <14>  AOOACSS 

/•  NUN9CA  OA  9VTCS  TO  INDIA  INTO  THE  TA*L*  90A  tACH  LENQTH 
INITIAL  v4.  9.  9.  4.  9.  49.  99.  129.  179.  219.  249.  249. 

297.  119.  144.  142  >• 

U0AO9C0UNT  .-)  9VTf  OATA 

/•  NUN9CA  OA  MOAOf  OA  IACH  SlZt  •/ 

<•*  •*  2.  1.  9.  7.  9.  4.  4.  2.  2.  2.  4.  l.  l,  1>. 


NAA9LEN  LIT  14 

A009«rCv«>  9VTC  DATA  v A90CCU.AC  >. 

LOOKED  4VTC  INITIAL  <•>. 

NOLO  9VT«. 

•UA9CA4CNC  AOOACSS  INITIAL  vl44NV 

NEXT  9ASC0  AOINTCA  9VTE. 

IN9UAA  LIT  99M  . 

CNAA  §VTt„ 

ACCUN9LEN0  wIT  9#  . 

ACCUNALCN4AC1  LIT  91  /•  ■ TO  ACCUN9LEN0  ALU9  1 

ACCUN  vA.:CUN#LCN4A41>  9VTC. 


•9  1 

M 2 
•7  2 

M 3 

M 3 
M 3 

91  2 

92  2 

93  3 

94  3 

99  4 

94  4 

97  4 

9#  3 

99  3 

109  2 

101  2 


DISPLAY<74>  »VTt  INITIAL  <0*. 

TOKEN  iVTI,  -RETURNED  P*G«  SCANNER  •/ 


/•••*•  PROCEDURES  USED  9Y  THE  SCANNER  • • • •✓ 

NEXT  *CHAR  PROCEDURE  9VTE. 

IP  LOOKED  then 

Da 

lOOKED-PALSC. 
return  v Char  -hold>. 

end. 

IP  4 POINTER  -POINTER  * 1>  >•  RUPPER9EN0  T»«N 
DO. 

IP  NOT  MORE# INPUT  THEN 
DO. 

•UPPER  #€ND-  MEMORY. 

POINTER-  ADD9END. 

END. 

ELSE  POINTER- 1 NRUPP. 

END. 

RETURN  v CHAR  -NEXT). 

END  NEXT iCMAR . 

OfTPCHAR  PROCEDURE, 

* THIS  PROCEDURE  IS  CALLED  UHflN  A NEW  CHAR  IS  NEEDED  WITHOUT 
THE  DIRECT  RETURN  OP  THE  CHARACTER— 

CHAR— NEXT SCHARi 
END  0ET9CHAR. 


199  1 DISPLAV9LINC  PROCEDURE. 

104  2 IP  NOT  LI ST# INPUT  THEN  RETURN. 

194  2 D!SPLAV<D!JPLAVvO>  ♦ 1>  • #'. 

109  2 CALL  PRINTS  DISPLAYC1>>. 

119  2 DISPLAV<9>  • 9. 

Ill  2 END  DISPLAY #LINE. 


112  1 L0AD4DI SPLAY  PROCEDURE, 

113  2 IP  DISPLAYvR)  < 72  THEN 

114  2 DISPLAY< DISPLAYS  -DISPLAY<9>  ♦ 1>  • CHAR. 

113  2 CAU.  OET#CMAA> 

114  2 END  L0A0#0 1 SPLAYi 

117  1 PUT  PROCEDURE. 

119  2 IP  ACCUM < 0 > C ACCUTiPLENQ  THEN 

119  2 ACCUN<ACCU(i<9>  -ACCUM* 9 >♦!> -CHAR. 

129  2 CALL  LOAO#OISPlAY. 

121  2 1.9  PUT. 

122  1 EAT #i IN*  PROCEDURE. 

123  2 DO  WHILE  CHAROCR. 

124  3 CALL  LOAO#OISPLAY. 

129  3 END. 

124  2 END  <AT#LXNC. 


127  1 

129  2 

129  2 

139  3 

132  3 

133  3 

134  4 

139  4 

139  4 

139  9 

149  3 

141  4 

143  4 

144  4 

143  3 

147  3 

149  9 


arr#N0#9LANK . PROCEDURE. 

DECLARE  vM.  !>  9YTC. 

DO  POREVER, 

IP  CHAR  • • THEN  CALL  L0A0#0 I SPLAY. 

ELSE 

IP  CHAR-CA  THEN 
DO. 

CALL  DISPLAY*. I NE» 

IP  SEQ9NUM  THEN  NMi  ELSE  N-2. 

DO  I ■ 1 TO  Hi 

CALL  LOAD40ISPLAY. 

END. 

tP  CHAR  • '•  THEN  CALL  KATRLINE. 


IP  CHAR  • 

00. 


IP  NOT  DS9U0QINQ  THEN  CALL  EAT #L INC. 
ELSE  CALL  LOAO«OISPLAY> 


199  3 RETURN. 

131  3 END.  /’•  END  OP  DO  POREVER  •/ 

192  2 END  OST#NO#9LANK, 

193  1 SPACE  PROCEDURE  9VTE. 

194  2 RETURN  <CHAR-  •>  OR  < CHAR— CR . . 

139  2 END  SPACE. 


DELIMITER  PROCEDURE  9YTR, 

. • CHECKS  POR  A PERIOD  POLL OWED  »Y  A SPACE  OR  CP— 
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IR  char  THCN  return  RRLSC. 

NOLP«NCVTfCNRR> 
wOokcd^truc 
IR  fRACC  THEN 

pa 

CHAR  • 

RCTURN  tru* 

«ND. 

CMAR« 

RCTURN  RALtl* 

INI'  PA.1HITCR. 

INC f OR  f TOKEN  RROCEDORC  CvT* 

RCTURN  OR  I'd.  INI  TIH. 

IND  CNOfORfTOKlN. 

OfTfLlTfRAL  RROCCtURC  IVTC. 

CALL  -0*0401  WAV. 

ro  rorcvcr. 

IR  ChAR«  OuOTC  thin 
OOi 

CRLL  lOAOROICRLAV. 
RCTURN  LlTtRRL- 

■NO. 

c'RLL  RUT. 

two. 

IND  OCTfctTERAL. 


LOOKfUR  PROCEDURE  CVTC. 

OCCLARC  POINT  APOAf  tt. 
hCRC  RIUt>  POINT  »4.>  RVT*. 

I •VTf. 

NATCH  PROCEDURE  CVTt, 

OCCLARC  J RVTC. 

00  J«4  TO  ACCUHx§>, 

IR  MCRCvJ  - 1)  O RCCUHxJ>  THEN  RCTURN  RALSE. 

INC. 

RCTURN  truc. 

END  NATCH. 

RO(Nf-ORR«CT<RCCUN«R>>^  TA*l«; 

DO  !•!  TO  wOROfCOUNTvACCUNvO  »• 

IR  NRTCH  TMCN  RCTURN  |. 

ROINT  • ROINT  ♦ AC CUN v 0 ) • 

CND> 

RCTURN  R*LSC. 

IND  lOOKRUP. 

RCMRVCDRNORD  »AOCIDUA«  RVTC. 

• RCTURNt  TNC  TOKEN  NUNMR  OR  A RCiCRVCD  WORD  IR  TNI  CONTENT!  OR 
TNI  ACCUMULATOR  It  A RCSCRvCO  WORD  OTNIRWtU  RCTURNt  2CRO 
OCCLARC  VALUC  IS Tf. 

OCCLARC  NUN*  RVTC. 

IR  ACCUNvf'  > NAkPLlN  TNCN  RCTURN  •• 

IR  xNUNR  •TOMNRTARCtvACCUNv#'  '•*  THIN  RCTURN  R. 

IR  .VALUC  -LOOKfUP'-A  Th|N  RCTURN 
RITURN  vNUNC  • VALUC >. 

IND  RCICRVCDRWORD. 

OCTfTOfc.CN  RROCIDURC  IVTC. 

ACCUN.R'-O. 

CALL  OfTfNORRLANK. 

IR  CNAR^NKiOTC  ThCN  RCTURN  OCT fL I TCRAL. 

IR  OCLlhlTCR  TNCN 

00. 

call  RUT, 

RCTURN  ACRIOD. 

«ND> 

DO  rorcvcr. 

CALL  RUT. 

IR  CNDRORf TOLCN  THCN  RCTUAN  INPUT  ft TR 
CND.  /•  OR  DO  RORCVCR 
IND  OCTfTOLCN. 


fCANNCR  RROCCDORI 

OCCLARC  CHCCK  ivT«. 

00  RORCVCR. 

IR.TOLCN  •OCTfTOLCM.  • INRUTftTR  ThCN 

IR  x CHCCK  •RttCRVCC'fNORO  s>  0 THCN  TOfc«N-cNCCK. 
IR  TOKCN  O 0 THCN  RC TURN. 

CALL  PRINT fCRROA  U ' 

OO  HH ILK  NOT  thDfORfTOfc.CN 
call  OCTfCHAR. 


KNO  SCANNER. 


242 

243 

244 

245 

244 

247 

244 

24* 

294 

291 

292 

293 

294 
299 
294 
297 


294 

29* 

244 

241 

242 

243 

244 
249 
244 
247 
244 
24* 
271 
273 
279 


274  3 

27*  3 

244  2 


A*  l NT  SAC  CUM  PftOCCOUftC. 

ACCUMsACCUMvO. •♦!>•*•'. 

CALL  PRINTs  ACCUTH1>>. 

2ND  PRtNT«ACCUN> 

PRINT#NUN4ER  PROCEDURES  NUMB  >. 

DECLARE s NUMB.  1.  CUT.  *>  |VTL  J<*»  4VTV  DATAvlOB.  14>. 
DO  1*4  TO  L 
CNT«4* 

DO  UMllf  NUNS  >•  vK  *Js  I > >» 

NUN4-NUN4  - Kj 
CnT*CNT  * L. 

END* 

CALL  PRlNTCMARs  4 ♦ CNT>. 

KNO. 

CULL  PRINTCNARv '0'  * NUM4>. 

END  PRINT#NUM4«R. 


INlTtSCANNSR  PROCEDURE. 

DECLARE  C0N#C4L  <•>  4VTf  DATA  \ C4L 
/•  INITIALIZE  *04  IN*UT  - OUTPUT  OPERATIONS 
CALL  MOVE  v CONSCBU  INSAOOA  ♦ *.  J>. 

CALL  PlLLslM*ADDA  ♦ 12.4.3). 

CALL  OPEN. 

CALL  MOVfv  IMAOOR.  0UT*UT4*C*.  »>* 

0UT*UT#*C4vI2>  • 4. 

OUTPUT  RENO*  s OUTPUT  #PTR  • 0UTPUT#4UPP  - 1>  ♦ 124< 

CALL  MAKE. 

CALL  0CT4CNMIi  /«  PRIME  TN«  SCANNER  •S 
DO  MMlLS  CHAR  • 'S', 

IF  NCXTCMRR  ■ L THEN  u i ST • INPUT -NOT  V.  1ST 4 INPUT. 

ELSE  \F  CM Ml  TMtN  SE04NUM-  NOT  SEQRNUM. 

CUK  l*  CMS*  • *P'  TMtN  PRINT4PR0D  • NOT  PRINT 4PR00. 
ELSE  I*  CHAR  • T*  TMtN  PR I NT# TOKEN  ■ NOT  PR l NT •TOKEN. 
CALL  OCTtCHMi 
CALL  (3CT#N0«4LRNK. 

END. 

END  INlTtSCSNNCR. 


/•  • • 

• 

END  OP  SCANNER  PROCEDURES  • • • 

• • 

* 

• SVMSOL  TA4LE 

DECLARATIONS  • • - *V 

OECLARE 

CUR4SVM 

ADDRESS. 

. -SYMBOL  BEING  ACCESSED* 

SVM40L 

EASED  CUR4SVM 

sl>  4VTE- 

SVttOLMOM 

EASED  CUR*SVM 

si;  ADDRESS. 

NEXTiSVHRtNTRV 

EASED  NEXT  f*VT1 

ADDRESS. 

MNSNPPTR 

ADDRESS. 

DISPLACEMENT 

LtT 

12  . 

mASMRNASK 

LIT 

'3PM'. 

SRTVPf 

LIT 

•1'. 

OCCURS 

LIT 

u.'. 

AOOR2 

LIT 

’ S' , 

P»LINGTH 

LIT 

3*. 

S4UN4TM 

LIT 

3 . 

LEVEL 

LIT 

14 

location 

LIT 

2'. 

REL2ID 

LIT 

'9 ' . 

START*f**tt 

LIT 

11'.  '•!  LESS* 

maxridrlen 

LIT 

12'> 

• 

• TVPt  LITERALS 

DECLARE 

sequential 

LIT 

l'. 

RANDOM 

lit 

2 

SEQ«AELATtVt 

lit 

3 

VAR  t A4LE  f LENO 

lit 

4 *. 

OROUP 

lit 

4 

COMP 

lit 

21  • 

/•  • • 

<• 

SVM40L  TA4LE  ROUTINES  • • • *z 

f N I T #4 VMSOL 

PROCEDURE. 

call  pill 

vPREEIfTOPAOt  4 iC4«. 

• INITIALIZE 

MAIM  TAELS  AND 

pirst  cuLu  in  on  p t Eld  * 

NtNT  » fVM«PRCI  •STORAGE* 12 1 


It*  J NEXTtSVHtKNTRV-*. 

2*7  2 END  IMlTffVtiftOc. 

2M  1 OETtAtLENOTH  ^fiOCfUJKC  9VTL 

299  2 RETURN  SVn90L<A»LENGTM>* 

290  2 INC  OfTtAtLlN OTH, 

291  l SlTlrtWnjJ  AROCEDURE-AODR). 

292  2 DIClMI  ADOR  W«KSS. 

292  2 Sv«90Lt*0OR^L0CATI0N>.A00R> 

294  2 r«  5TWCCWJS. 

29?  1 QTlAOCAUS  AAOCEDURK  AOORKSS. 

294  2 RETURN  SVN90LtA00R<  LOCATION-.. 

297  2 INC  GCTtAOORKSS. 

294  i orrrrvrt  rroccduak  tvrt 

299  2 RETURN  SVM40L<StTVRt>. 

sea  2 crc  arr#Tv9Ci 

301  1 $rr#TV9t.  AAOCEDURK  TVRt>. 

302  2 DCCU^l  TVRE  OVT*. 

303  2 SVM90L<S#TVRK>-TVRK 

304  2 C NO  SErtTVAK. 

105  1 0R4TVRK  AROCEDURKTVRO. 

304  2 DC CLARK  TV9K  RVTK 

307  2 SVmOLvSJTVAO-TVAC  OR  OErtTVAC. 

300  2 KNO  0R4TVRK 

209  i orr«ccvcL  aroccdorc  avix 

310  2 RETURN  SMR  *.  SVnOOL  < LEVEL  .> » 4 > » 

3X1  2 END  arrtLCVCL. 

312  1 SKT4LEVKL  AROCCDORC  <LVL » 

313  2 DCCLARI  wVL  *VTI> 

314  2 SVTiaOL«;LfV,CL>-»HLvLVL.  4>  OR  SV«90L<L£ 

313  2 CNO  SET  *LEV£L> 

314  1 GETtOEClMAL  AAOCEDURK  tVTC, 

317  2 RETURN  SVHOOLCLCVCL>  ANO  ORHi 

315  2 W>  0CT4DCCIMAL. 

319  i srrsoccinAL  arocedure  <dec>. 

320  2 DC  CLARK  DKC  OVTKi 

321  2 3VnOOL<LKVKL>  - DKC  OR  SVflOOL <LKVKL>< 

322  2 END  SCT40CCIMAL. 

323  1 SET  SSI LENGTH  AROCEDURE <MOU4LONO>* 

324  2 DECLARE  H0U4L0NQ  AOOAESS. 

323  2 SVffOOL*AOC«(SJLSNQTVi>  - HOUSLONOj 

324  2 END  SKT4S4LKN0THJ 

327  1 arrtSJLKHOTH  RROCKDURK  AOORKSSi 

329  2 RETURN  SvraOL*AOOR<S*LCNGTH>i 

329  2 END  0CT4S4LCN0TH, 


330  1 SET4A00R2:  AROCEDURE  *•  AoOA>. 

331  2 DECLARE  ADDR  AOORKSS. 

332  2 SVH90L*A00R<A00R2>-A00R* 

333  2 DO  SET4AD0R2> 

334  l OET9AOOR2  AROCKDURC  AOORKSS. 

335  2 RETURN  S VM90L  4A00R  v AD0R2  > . 

334  2 KNO  QET  4A00R2. 

337  1 SET40CCURS  AROCKDURC < OCCUR >i 

339  2 DECLARE  OCCUR  tVTE 

339  2 ' SV«90L< OCCURS > -OCCUR. 

349  2 KNO  SKT90CCURS. 

341  1 GKT40CCURS  AROCKDURC  EVTK. 

342  2 RETURN  SVM90L  COCCURS» 

343  2 END  OKT tOC CURS* 


• AARJKR  DECLARATIONS  - • • •/ 

DECLARE 

I NT  LIT  43*.  /•  COOK  AOR  INITIALIZE  •/ 

SCO  LIT  '44'.  /•  COOK  AOR  SET  COOK  START  •/ 

ASTACKSXIK  LIT  20'.  /*  SIZE  OA  AA RSI  STACKS— / 

STRTKSTACK  <RSTACkJIZE>  avTE.  /*  SAVED  STATES 

VALUE  <ASTACKSXZK>  AOORKSS.  /•  TEAR  VALUES  •/ 

VARC  <31  > 9VTE  ."•TENA  CHAR  STORE-/ 

I Dt STACK  <19>  AOORKSS  XNtTXAL  <d>. 

XDtSTACKtATA  9VTE  lNlTlALs4>. 

M0L04L I T v ACCUrULCNtAtl ' tVTE 
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mmzm  $ t s n mm  mm  urn  rmm  mmn 


MOLOiSVM 

Aft40lN04LlTfAAL 

Ffl4DIN0#LlT«ID 

WDV 

AfDfFFONf 

AfDfFFTUO 

TfHFjNOLD 

rfHF«ruo 

COHFILIMO 

SA 


NOLOOK 

<1.  j.k> 

stats 


AOOAfSS, 

•vTf  IMlTIALvFALSf). 

ADO MISS. 

•VTf  INITIAL  <FALSfV. 

AOOAfSS. 

WOKtSS. 

AOOAfSS. 

AOOAfSS. 

•VTf  INlTlAL^TAUt  >. 

•VTI  INITIAL  ^53). 

•VTt 

•VTI. 

•VTf  INlTIALvTAOf). 

•VTt  /•INDICItS  FOA  TW«  AAAftA-/- 

•VTf  INXTIAL<STAATS>* 


/• 


aoutincs 


24S  1 •VT1#0UT  AAOCfDUAfvONf#«VTf>, 

THIS  AAOCSDUAf  UAITfJ  0t4f  •VTf  OF  OUTAUT  ONTO  THf  DISK 
I A AfQUtAfD  THf  OUTPUT  fUFFfA  IS  OUMAfD  TO  THf  DISK 

2 OfCLAAf  ONf«OVTf  *VTt 

2 IF  (OUTAUTFFT*  -OUTAuTfAT*  ♦ i>>  OUTAUTFfNO  THfN 

2 00* 

3 CALL  UAlTffOUTAUT* 

3 OUTAUTFFTA-  OUTAUT*«UFF. 

3 fNO. 

2 OUTAUTFCMAA-ONf#«VTt 

2 fNO  •VTfAOUT. 


1 STftlNQAOUT  AAOCSDUAf  (AOOA.  COUNT >. 

2 DfCLAAf  v AOOA.  I.  COUNT)  AOOAfSS.  <CHAA  SASfD  AOOA>  AVTfj 

2 00  I-i  TO  COUNT. 

3 CALL  •VTf#OUT<CHAA>* 

3 AOOA-AOOA*!. 

3 fNO* 

2 fro  stainoaout. 


1 AOOAAOUT  AAOCSDUAf  < AOOA  >* 

2 DfCLAAf  AOOA  AOOAfJS. 

2 CALL  SVTf AOUT < LON v AOOA >>« 

2 CALL  •VTf#OUT<Ml©M<AOOA>>* 

2 fNO  AOOAAOUT* 

1 FXLLJSTAXNO  AAOCSDUAf < COUNT.  CHAA>* 

2 DfCLAAf  <1.  COUNT)  AOOAfSS.  CHAA  *VTL 

2 00  I-i  TO  COUNT. 

3 CALL  •VTfFOUT  <CHAA> . 

3 fNO* 

2 fNO  fxllastaxnq* 

1 STAATAlNtTXALlZf  AAOCSDUAf*.  AOOA.  CUT)* 

2 DfCLAAf  <AOOA.  CUT)  AOOAfSS* 

2 CALL  fVTfOUTv INTV. 

2 CALL  AOOA AOUT  < AOOA > » 

2 CALL  AOOA AOUT C CUT). 

2 fNO  STAATAlNITIALIZf* 


L •UILOASVHOOL  AAOCfDUAfvLfN). 

2 DfCLAAf  Ltli  •VTf.  TfMA  AOOAfSS. 

2 TfHF-4fXT*SVN* 

2 IF  < NfXT  ASVfl  • SVHfOLvLfN:-LSN*OlSFLACSMSNT>> 

> MAXJMfriOAY  THfN  CALL  FAT AL AfAAOA  v ' ST  ' > * 

2 CALL  FILL  < TfHF • O.  LfN ) * 

2 fro  •UXLOASVHSOL. 

1 NATCH  AAOCSDUAf  AOOAfJS. 

/•  CHfCKS  AN  lOFNTTFIfA  TO  Sff  IF  IT  IS  IN  THf  SVMOOL 
TAtLt  IF  IT  tS  WHXSfNT.  CUAASVH  IS  SfT  »0A  ACCfSS 
OTHfAHtJf  A NfU  fNTAV  IS  MAOf  AND  THf  FAINT  NANf 
IS  fNTfAfO.  ALL  NAMfS  AAf  TAUNCATfO  TO  NAKAlOALf N-' 

2 DfCLAAf  AO l NT  AOOAfSS. 

COLLISION  IAS(l  AO I NT  AOOAfSS. 

(MOLD.  !>  »VTt 

2 IF  VAAC<f>>mxAlOALfr4 

THfN  VAACvOV  • MAXAIOALfN. 

/•  TAUNCATf  IF  AfOUIAfD  «/ 

2 HOLD  • 0* 

2 00  1*1  TO  VAAC  v 0 ■•  * '+  CALCULATf  MASH  COOf  •/ 

3 HOLD-HOLD  ♦ VAACv I >* 

3 fNO. 

2 AOlNT«FAff#STOAAQf  • SHL*.  vMOLD  ANO  mASNFNASK  » . 1>* 

2 00  FOAfVfA. 

3 IF  COLLISION-#  THfN 

3 DO* 

4 CUAFSVn.  COLLlSION-NfVTFSVM, 

4 CALL  SU I LO#S VNSOL  v VAAC  <#'•>• 


• LOAO  PAINT  •«rWTt  . 

JVMROL v ►•Lf NOTH  •■VAAC  v d > . 

PO  I • i ro  vARCvd' 

SVMftOLCSTAftTfMinC  « l;«vARCvI>. 

«NO> 

citurn  cuapsvh. 

(NDi 

cv.il 

CO. 

CUAPiVN-COLHSlON. 

IP  vMQLD  •O|TPP#LiNOTN>«Vi«iACv0;  THIN 
CO. 

I-L. 

CO  HHlLl  SVMROLvST WIT PMAMC  * I >•  VARC.l>- 
IP  <1  »1«1»H0L0  THIN  AITURN  vCUAPSVM  •COLLISION? 
INO. 

CTO> 

KND. 

POINT  ■COLLISION. 

(NO. 

I NO  MATCH. 

ALLOCATl  PAOCCOO«|vivTISPA«Q>  VWU$. 

/»  THIS  POUT I Ml  CONTROLS  TH|  ALLOCATION  OP  SAACI 
IN  THI  MIMORv  OP  THI  iNT«*AR«Tf*  •/ 

OfCLAH  vHOlO-  iVT|SS«IO>  AOORISS. 

HOLC«N|XT  #AVA  l L AlLt. 

IP  vN(XT*AVAlLARLI  -NCXTSAVAlLARLi  ♦ IVTISPACOOHAXPINTPHSH 
THIN  CALL  PATALW*0»<  MO  >. 

RITURN  NOLO. 

INO  ALLOCATE 

IITIHIDIF  PAOCIDOAf  vOLO-  N*U>. 

OKCLAA*  vOLO.  N|U>  AOORISS. 

IP  vAIOIP  -NOT  A|0*P>  THIN 

00. 

RCDCPPONC«OlEN 

riocpptho^iu, 

(NO. 

ILSI  CALL  P*lNTi(RROR< 'Ri ' >* 

(NO  SfT*PfO€P 

SITPCUAPSVM  prociouri. 

CoAPSVN-IOPSTACKv IDiSTACK#PT*>, 

INO  HTPCUttPSVfL 

STACKPLKVtL  paociolrc  ivti. 

CALL  StTPCUAPiVM. 

rctuan  ottplivil. 

(NO  STACNPLlVlL. 

loadplivil  paockooak. 

Cl  CLARK  HOLO  AOORISS. 

LOADPRIDIPPAOOR  PROCIOURI. 

CUMfVWRICCPPONt. 

H0LC*«0|T  PAOORCSS. 

INO  L0A0«*C0CP**O«. 

IP  lOiSTACK vO>  O 0 THIN 
OO. 

IP  vALUI<*R-2>«0  THIN 

CO. 

CALL  SITPOJRPSvn, 

HOLC^OITPSALINOTH  ♦ OITPAOORISS. 

INO. 

CL SC  CALL  LOAOPRCOCPPAOOA. 

IP  vIOPSTACKPPTR  • lOPSTACKJPTR*! t >•  THIN 

00. 

CALL  PRINTPCRRORv  CL  >. 

I OP  ST  ACK  PPTR«#j 

INO  i 

INO. 

ILSI  HOLO*N|\T  PAvA I LARLl. 

10PSTACK < l OPSTACKPPTR  -* ■VALUl ^ MAPI .. . 

CALL  STTPCUPJSVMy 
CALL  SIT PAOORISSv NOLO*. 

INO  LOAOPLIVKL. 

RCOCPPORPVALUC  PAOCCOOAf. 

OICLARC  HOLO  AOCPfSS 

*OtC.  K.  J.  Sl&Ni  IVT|. 

IP  RCOCP  THIN 

00. 

IP  RfMPCTwO-CUAPSVH  THIN 


HOLD-OCTAfALEMOTM* 

cuaasvh-aedeaaowe, 

ia  M0LD>QET A SALCNQTH  them 
DO * 

CALL  AAINTAEAAOAv 'A2'>. 

HOLD-OET#*JLE/<GTHj 

CUAASVtt-AEDCAAONC, 

CALL  SET  ASALCNOTH<  HOLD  >i 

CHOi 

AEDEA-AALSE* 

END* 

End. 

ELSE  IA  ACTC»IMO«LXTCKALM  THEM  RETUAN* 

I A ACNDJNOALITAIDOIDASTACKAAT*  then  rstuan* 

CALL  rrAATCINXTXALXZECQETSADDAESS.HOLD  •OETSSAL£NQTH>; 

IA  ACNDIN0ALXTCAALD2  THEM 
DO* 

IA  AMINGALXTlRAL-2  THEN  CHAR**'®** 

ELSE  XA  ASNOINQALITEAAL-*  THEN  CHAR**  '* 

ELSE  CHAR"  QUOTE* 

CALL  aill*strimo<hold#cmar>* 

M* 

ELSE  XA  AENOINOALITtftAL  • 2 THEN 
DO* 

XA  HOLD  <•  NOLD*LXT<0>  THEN 

CALL  STAINOAOUTC  H0LD*LIT<1>,  HOLD>; 

ELSE  DO* 

CALL  STft!NG«OUT<  H0LD«LXT<1>,  HOLD«LlT<e>>; 

CALL  AXLL#STAXNO<HOLD  - <HOLD«L2T<0>  ♦ i>«  ' '>* 

END* 

END* 

fl  <M  00; 

THE  NUMDEA  HANDELEK  *✓ 

DECLARE  COEC-  MINUSASION,  l,  J.  LXTAOEC*  MALM™, 

NUMAMAORE*  NUHAAATER,  TVAE)  8VTE,  ZONE  LXT  10H', 

rA<<TVAt  -GETATVRfXi*>  OA  CTVAED20>  THEM 
CALL  A*XNT#EAAOA<'NV'>* 

WALENOTH-OCTASALENOTH* 

DEC-OETAOECIMAL* 

A X MUSAS X GN-A ALSK* 

XA  HOLDALXTCI)  - THEN 
00* 

nXNUSASXOM-TAUC* 

J« 1* 

END* 

ELSE  IA  H0LDALIT<1>  - T>«N  J-i* 

ELSE  J-0* 

LXTAOCC*#* 

DO  I -1  TO  HOLDALITC0>i 

XA  HOLDALXT<X>«'.  ' T>«N  LlTAOEC-l* 

END* 

XA  LITa0EC«0  THEN 
DO* 

NUHADEA0AE-H0LDALXT<1>-Ji 

NUHAAATER-O* 

ET4D* 

ELSE  DO; 

NUHAOCAOA1-LITAOEC  -J-i* 

WUWAAATIR*HOLDALlT':i>  - LXTAOEC. 

Mi 

XA  C I : ■NALENQTH  - DEC XNUHA0EAOAE  THEN 
CALL  RRXNTAERROR<'SL'>i 
IA  I>NUMA#EA0AE  THEN 

DOi 

I-I-NUMAREAOAt* 

XA  ntNUSASXGN  THEM 
DOi 

X*I-i* 

CALL  tVTEAOUTC '•*  ♦ 20NE>; 

Mi 

CALL  A1LLASTRXNG<  I« 

M* 

ELSE  IA  MIMUSASIGN  THEN  MOLD *LIT < J-*-l>»HOLD*LlT< J*i *- ZONE, 
CALL  STRINGAOUTv  H0LD«LXT<1>  * 3.  NUHADEAOAE > » 

IA  rJUHAAATEA  > DEC  THEN  NUrtAARTIR  • DEC 
CALL  STR ! rtGAOUT «.  HCLDALXTvi^  * LITAOCC.  NUMAAATERJi 
XA  <I:«OEC  - NUM*AATE»>OQ  THEM 
CALL  AlLLASTAXNQvt.  *••*>* 

Mi 

AEND  t NOJL  X TEAAL««i 

M aederaoravalue* 

AEDUCEASTACK  AROCEDUAE. 

DCCLAAS  HOLDALEMOTH  ADORES  S. 

CALL  SCTACUAASVH, 

: ^ . »CDZ  A *v»*V*L . >* 


Illlllliapi  I Jl|jl 


MS  2 
M4  2 

sr  : 
Ml  J 
Ml  2 

9T0  2 

an  2 
an  2 


an  i 
•ra  2 
tt<  z 


r> 

a*o 

sti 

;u 

SK 

5H 

TIT 

Zii 

:r 

94i 
34  > 
3*0 


MOLt‘*w«»«OTH-OCT 
If  0«TtTV*t  > u*  ***** 

m0LD«C§N0T>«*N0LD*L®*1TN  • 4*TiOC CU*S' 


DO. 


nOLO«L(NOTN  > 


vVAAC' 


tr*.  1 

2 

s»;  a 

?M  2 

5)5  L 
:m  2 

3t*  2 

3M  2 
3M  2 
MC  2 
•oi  : 
m;  2 


♦02  2 

<20  2 
222  2 
4*2  2 

<U  2 

<2-*  2 

423  2 

<U  2 
<2?  2 
e *>  2 

420  2 

<22  2 

<23  2 

<24  2 


(NO. 

It>IfT*CM#T*«lD*<TACK<*T*  - 2- 

cull  srr#cu«<fvn. 

c(NwL  S«T4*M.tH0TNv0rT**OC(N0TN 

CALL  *«T<TV#tvO<Ov^ 

DO  IKOU Cl<fT<CK; 

roio^iiiwMi-  nodDuAt* 

;0  MHtwt  IW*TACK<*T«<>0* 

c***.  *cooc*»rr^CK 

V* 

C2^.  f(TK0»«<vn. 

CHL*.  •*w4M0H*W#LU*# 

TfrfwjuO-AlJoCAT*'  Tir*«n*  «MTiJJ.-iHOTH>, 
tNO  CNP»O»»*fC0«O. 

C0»..C*T»l..T*J*»  **0Cft'U»»- 

;<c.vii  <:«**»• 

!NTia*»-C. 

M 1 • l ^ vWC  O'  

INTCOI*"#WL  tl.TtOf*.  IHTMM.  I*’ 

t*> 

It*  CON'.tPTOlMTtOW. 

JIVW  >"  »TT*lli. 

MOMI 't*  *•-*•  WUI 

V^U*^.T»'«.ACJS'AT*  0«  *TT«:». 

tl*  0»»vAuo«. 

»UtLM*C»  MOC*OU*«. 

MCLMI  TO»  V «H 

*ur»i«iu>  I'  l.  'Cn*«. 
c*v*.  *u»*w-  -U.-. 

r.'-  In'li-f  J C ii.-  WO  ,K  vAOC-0 . >* 

I»  vCHA»  •VWCvI  ’ T**N  Jm*‘ 

(Li(  00. 

*UF*«v,J.*CHN*l 

J«J*U 

(NO. 

(NO. 

CAU.  HTIKKIU'W 

CKJ.  fTMT«IMXTI*tIIf.TP».  1< 

»vti»oot  a.. 

c«o.  m«iN0*vJT,  ix>. 

.*«■  ■ »IUU*fT»lN0.  « 0>. 

CAu. 

tt«C  «UIL0**C»- 

MTIItjH  »*0C*0U**'NUN*>' 

CA^  KTOTVOtCVdLUt'  »'  * -*»•  ' 

(ML  IfT.SlON. 


t.  J.  *.Tt- 


»tc*AN*.ui» 

MCl«l 

»UA0 

. T WT  OVTl. 

COUNT  ACOAU*. 

mm)  «vti 

«M  *VT*- 

«*AITITIONJ 
J IVTt 

mcacount  OVTl. 
CHM  *tt*. 

t IVTt. 

TV#  AOOW** 

TVOf  *vn. 


»«oc*oo*«. 

/.  UCKK  MM  WCi  *A«lA*u*f 
•VTC. 


...  MftSkt 

• * • 

ALA** 

ClT 

0 

AlffcXT 

lit 

•a*. 

AIN 

lit 

4 . 

(TIT 

lit 

2 • 

fiun 

lit 

i< 

nuhacc it 

lit 

22  - 

D(C 

lit 

44 

• 

It  ON 

lit 

222 
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I 


«as 

<24 

4zr 

<21 

<30 


*21 


*22 
*22 
* 2 «* 


*23 

*2* 

*2? 


*42 

443 


447 


44» 

491 

433 
459 
437 

434 
433 


441 

443 


445 

444 

447 


44» 

470 


471 

472 

473 

474 

473 

474 
477 
470 
47f 


441 


442 

443 


Ll 


NUi"*MAS*. 

LIT 

1414XLLL4 

NUMK07MASK 

wIT 

140441414 

SANUM4NA  *K 

wIT 

0410LLLL4- 

A4f (MASK 

lit 

111-1X1044 

AAN4MASK 

lit 

111414141 

A4N4IAMASK 

lit 

111444444 

• tva«1 

NlTVAf  LIT  44 

NTVOf  LIT  14 
SNTVAf  wtT  17 
ATvAf  LIT  « . 

*«Tvof  lit  r; 
4NTV4*  LIT  3 
ANITV7I  LIT  ~2 


INCACOUNT  AAOCIOUACv SWITCH), 
CICLAAI  SWITCH  4vTCj 
7LAG-7LA0  04  SWITCH. 

17  v COUNT  -COUNT  ♦ t)  v 
(NO  INCJCOUNT. 


31  TH(N  4U7A(R  v COUNT  > - CHAA; 


CHCCK 


TAOCIOuAl  mask  > 4VTC, 

'•  THIS  40UTINC  CHICKS  4 MASK  40 INST  TH( 
7LA0  4VT1  ANO  AITUANS  TAUl  If  Th(  7LA0 
►*0  NO  41TS  IN  COMMON  WITH  THf  MASK  •/ 
CICLAAI  MASK  4VTI, 

AfTUAN  NOT  v vTLAG  AND  MASK > C'  0); 

(NO  CHICK 


3IC4ALL0CATI  PROClDclAI  < AMT  > 4004 IS S. 
OIClAAt  4HT  AOC'ftCSS. 

17  VMAX4INT4MCM  -MAXAlNTfMtM  - 4MT > 
THIN  CAU-  74T4L4I4A04  MO’.'i 
OmjUN  MAXJlMTOMtMi 
(NO  7IC4AU.0CATI. 


< NlXT • AVA I L44LC 


AAOCIDUAI  (.Xf  CUT  I ON  ST  AITS  HIM 


COUNT.  7LAO.  0IC4C0UNT-4. 

/•  CHICK  704  (XCISSIVC  LlNQTW  — 

17  VAAC<Q>  > 30  THIN 
DO. 

CALL  AAlNTflAAOAv'AC'); 

ACTUAN, 

CNDi 

/-  srr  tlaq  iits  ano  count  linoth 
i -i* 

00  WMXLI  K-VAAC<0>. 

17  vCHAA  -VAAC vl>>-' A THIN  CALL  I NC ACOUNT v ALPHA > ♦ 

(LSI  17  CHAA  THIN  CALL  I NCACOUNT v A4C0 IT). 

(LSI  17  CHAA  -3'  THIN  CALL  INCJCOUNTvNUH). 

(LSI  17  CHM  — ' X * THIN  CAU.  tNCJCOUNTv  A*N>. 

(LSI  17  vCHAA-  S" > ANO  ‘COUNT -4 > THIN 
7LA0-7LA0  OA  SION. 

(LSI  17  vCHAA  • V , ANO  <OCC*COUNT-«>  THIN 
MC4C0UNT  -COUNT . 

(LSI  17  v CHAA-  ■ > OA  v CHAA—  4 ' > THIN  CALL  XNCACOUNTvIDrT-*. 

(LSI  17 

vCMAA—  2'  ' OA  vCHAA—  •*  > OA  vCHAA— ' •*  ) OA 
vCHAA—’ ♦' > OA  ‘CHAA—' - > OA  vCHAA-' 4' > THIN 
CAU.  I NCACOUNT  v NUM4C0 IT). 

(LSI  17  vCHAA-  *>  ANO  v DICJCOUNT-4 ) THIN 

00. 

CALL  lNC#COUNT<NUN*IOtT>. 

OIC4COUNT -COUNT. 

(NO. 

(LSI  17  v vCHAA-  C-  ANO  vVAACvI-D-  A > ' OA 
< vCHAA—  '0'  • ANO  vVAACv  1*1  >•'§*>>  THIN 
DO. 

CALL  INC4C0UNT<NUM«I0IT>. 

CHAA-VAAC v I 

CAU.  INC4L0UNTvNUM4IDIT>. 

(NO. 

(LSI  t7  vCHAA—'  v ' > ANO  vC0UNTO4>  THIN 

00. 

SAVf-vAACv I-l>. 

4I7ITITI0NS-4. 

DO  HN I L C v CHAA  -VAACvl  -l-l.'O  > . 

AlAITITIONS-SHLvAIAITXTlONS.  3>  • 

JHLv AI7ITXT JONS.  1.*  -vCHAA  - 4'>» 

(NO 

CHAA-SAVf. 

DO  i TO  AtAITITJONS-U 
CAU.  I MCTCOUNT  v 4 > • 

(NO. 


(NC*. 


117 


Ji 


iM 

3 

CUI  00. 

it) 

4 

CALL  71INT#tlttOI»v  AC 

iM 

4 

AC  TUAN* 

04 

4 

(NO* 

os 

3 

I«I*1* 

OS 

3 

(NO*  • (TO  0^  00  UM|uI  K«  ^AAC  * 

• AT  THJS  701  NT  TM(  TVAf  CAN  t(  OCTfAHlNCO 

4*4 

2 

if  not  check vnuhacdit>  th*n 

iW 

2 

00* 

•H 

3 

IF  CHICK V WJNFCO *NASk  • THCN  TV^t-N(TVAf. 

• N 

3 

too. 

Of 

j 

dll  IF  CHCCK  •. NUH4HASK  > TmCN  TVAf^NTVAC. 

’•1 

2 

(Lll  IF  CHICK v ST«JH«HA$K  • fM*N  TYAC-SFNfTvAC. 

13 

2 

ElU  IT  CHICK V NOT K AL7HA > ' ’HCN  TVAf-ATYAt. 

13 

2 

(Lll  IF  CHICK vA#(»HA*K>  ’MlN  TVFf  -AtTYFf, 

’■or 

2 

(LSI  IF  CHCCK vA4N#HASK>  TN*N  TYAf  .ANTS-At. 

it 

2 

CL SC  IF  CHCCK v AFNFC FHASK ) TMCN  TVAC-ANCTYFC, 

IF  TYAC«4  THCN  CALL  AAINTUlAAOAv  AC  . 

’U 

2 

(LSC  00* 

’14 

3 

IF  ACD€F  THCN  CUAFSVH-ACOCFFTNQ. 

no 

3 

(LSC  CUAFSYH  • hOLOFSVH. 

nr 

3 

CJ^i.  SrTFTVA(<TVF(). 

rit 

3 

CALL  STTFSLCMOTNv COUNT  - OCTFSFL(NOTH>. 

’it 

3 

IF  vTVTf  ANO  44>  O 9 THCN 

*?t 

* 

00. 

'a 

4 

CALL  SrrfA00A2vT(HF  •*  I CFAllOCATC  <C0UNT  ' >* 

*IS 

4 

CAL*.  STAATtlNITIALlK'TIHF.  COUNT). 

’23 

4 

CALL  niNQFOUTv  1UFACA  * L.  COUNT  > * 

1« 4 

4 

(NO. 

’23 

3 

IF  0CCFC0UNTO4  THCN  CALL  STTFOCC I HAL v COUNT -OCCFCOUNT 

’27 

3 

(NO* 

721 

2 

(NO 

FICFANALin*. 

’W 

1 

SCTFFILIFATT*!*  FAOCCDUAC. 

19 

2 

0€CLAA(  TCMF  AOOACSS.  Tv*f  §YT(> 

’ll 

2 

IF  CUAFSVnOVALU(sHFAl>  THCN 

12 

2 

00* 

13 

3 

TtHF^UAFSYfL 

14 

3 

CUAF3VH*VALU(v  AA71) . 

13 

3 

SYf^OL  FAOOF  < AILF 1 0 > • TIHF , 

14 

3 

(NO. 

IT 

2 

IF  NOT  vTtHF  -VALU(vSA-l> ' TH(N  CALL  AAINTFCAAOA  v*NF'>* 

If 

2 

(LSC  OO. 

74* 

3 

IF  TCNA-1  THCN  TV AC«SCQUCNT I AL. 

’4* 

3 

(LSC  IF  TCHF-13  THCN  TVAf-AANOOH. 

744 

3 

(LSC  IF  T(HF«t  THCN  TYFC-SCOFACLATIVC* 

’44 

3 

(LSC  OO* 

r4  r 

4 

CALL  FllNTtCFAOAv  IA  >* 

’4# 

4 

TVFC*!. 

r4f 

4 

too. 

1# 

3 

too 

H 

2 

CALL  SCTFTVACvTVFOi 

12 

2 

(NO 

SCTSFILftATTIIll* 

11 

1 

lOAO«lITC»AL  FAOCCOUAC. 

14 

2 

OCCwAAC  I tVT(. 

13 

2 

IF  FCNOINOFLITCAAL  O 0 THCN  CALL  *AlNT*f*«OA  v UC  >* 

IT 

2 

(LSC  00  l • 0 TO  YAACvO). 

10 

3 

hOLOFLXT< l >«VAAC* I >. 

It 

3 

CNO. 

’40 

2 

(NO 

LOAOFLITCAAL* 

T41 

1 

ChCCKFTOAFLCVCL  7A0CCDUIIC* 

’42 

2 

OCCLAAC  NCUFLCVCL  1VTC. 

13 

2 

HOLOFSVH.  CUAFSYH-VALUCv^-1). 

’*4 

2 

CALL  SCTFLCVCLvNCMFLfVCL  •VALUC  v HA— 2 > > • 

Ti? 

2 

IF  nCUFl£VCL«1  THCN 

’44 

2 

00. 

’47 

3 

IF  IDFSTACKvOOl  THCN 

’«• 

3 

oo* 

TO 

4 

IF  NOT  FlLCFMCFtoO  THCN 

TTf 

4 

00* 

m 

3 

CALL  SCTFACDCFvIOFSTACK*d>.  vALUCvHF-l>>, 

n 

3 

vALUCvHF'»L*  /•  SCT  ACOCFINC  *LAO 

i 

3 

CNO. 

774 

4 

CALL  CNOFOFFftCCOAC. 

71 

4 

(NO. 

77« 

3 

(NO. 

777 

2 

(LSC  00  NHILC  STACK FLCVCL  >•  NCLFLfVCL. 

771 

3 

CALL  ACOUClfSTACK. 

77t 

5 

(NO 

10 

2 

IK 

CHCCK FFOA FLCVCL 

11 

1 

COOCFOCN  FftOCtOUM  »*OOuCTtON'. 

12 

2 

C'CClAAC  ••OM.CTION  1VT(. 
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IP  «M»lMT*JN|OC  TX«N 

c<a 

CALL  CALA 

CALL  AAlNTCMAA  AOtjNL> 

CALL  AAINT4WUNOS«vA«OC>UCTION> 

fNO- 

DO  CAM  AA00OCTI0H. 

• A A 0 © U C r l o H § •, 


CAM  0 NOT  uSSO 

1 ^AAOQftATO  • ClD«©lV>  d-OIV>  <©-OlV>  •AOCCOoAt 

CONAXUNO^AAlM. 

2 ClD-OlVD  • IDCNT1AICATI0N  DIVISION  *AOOAAN-!© 

2 CCOm*NT>  vAUTKD  CC-AJSD  CSS O 

NO  ACTION  ASOUtAI©  •' 

2 CAUTK>  • AuTNOA  CCOW«NT> 

NO  ACTION  AfdOlASD 

4 V C1AATV> 

MO  ACTION  ASOUl*C£>  •' 

3 CDATO  • DATt-MAITT»N  CCO«nSNT> 

— NO  ACTION  ASOUIAS©  ~ 

• \ • C«AATV> 

'•  NO  ACTION  ACOuXASD  -✓ 

r CJSC>  • MCUAITV  <CONNSNT> 

NO  ACTION  ASQOXKt©  ~ 

• S'  C«NATV> 

• NO  ACTION  ASQUXAt©  •/ 

• CCOHN*NT>  • <JNAUT> 

NO  ACTION  ASQUXAC©  •/ 

10  \*  CCON«SNT>  CINAOTD 
/•  NO  ACTION  ftCOUXASD  ~ 

11  <1-0 tV>  • INVIAONNSNT  DIVISION  CONA I OUAAT I ON 

11  SSCTION  <S*C-OOJ>  v I ~0> 

NO  ACTION  ACOUIACD  «s 

IS  CS»C-OOJ>  - SOUACS-CONALTIA  CCOMMSNTD  CDf»ua> 

12  OOJSCT-COMAVJTXA  CCONHSNTD 

i /»  NO  ACTION  ACQUlAS©  »•' 

12  COSOUO  • DCOOOOINQ  MOOS 

DOuOQINOTtuC.  /•  SCTS  A SCANNCA  TOOOLl  •/ 

14  N*  CSAATV> 

/*•  NO  ACTION  ACOUIRSD 

15  <1-0  • If^OT-OUTAuT  SSCTION  *ILS-C0NTA0L 

IS  CAIlI-CONTAOL-lXSTD  CIO 

NO  ACTION  KCQUIRCD 
1*  V CS«ATV> 

/•  NO  ACTION  ASQUIAS© 

1?  CAlLl-CONTAOL-LlfTD  » CA lLS-CONTAOL-«NTAV> 

/•  NO  ACTION  ACOUlKCb  •/ 


CA l LS-CONTAOL -SNT«V> 


CA I Ll-CONTAOL-L 2 STD 
CA ILS-CONTAOL-SNTAV> 


/•  NO  ACTION  ACOUIASD  ^ 


IS  CAILS-CONTAOL-SNTAVD  - SCLSCT  CX©>  CATTAIOOTI-HSTD 
CALL  SSTMlLSAATTAXti 

20  CATTAIOUTI-cISTD  • cons-attaii> 

-•*  NO  ACTION  AfQUXAC©  •/ 

21  V CATTA I OUTS— L I JT>  <ONS-ATTAI*> 
VALuS<«A'-VALUSvSA>  oa  valuS<ha>. 

22  CONS-ATTAIO>  • OAOANIZATION  COAQ-TVAO 
vALVS < MA ^ -VALUS < SA > . 

22  V ACCUS  <ACC-TVA«>  CASLATIVCD 

vALUSvNA'«vALUSvNAA1>  OA  VALUS  v SA  > * 

24  S • ASSIGN  CINAUTD 
CALL  OUtLOAACS. 

25  COAO-TVAfD  • SSOUSNTIAL 

/•  MO  ACTION  ASQUIAS©  - DSAAULT 

24  \*  ASLATIVS 

ClA-L  OAAVALUSvSA.  4 .. 

27  CACC«TVAf>  • MQOSNTIAL 

NO  ACTION  ASQUIAS©  - OCAAULT 

20  V*  AANOON 

CALL  0AtvALOS<SA  2>» 

IS  CASLATIVSD  • ASLATIVS  <XD> 

CALL  OAiVALJSvNA  O'* 

20  s • Cl  MATY:- 

'•  NO  ACTION  AKOUIASD  - DSAAU.T 

21  CIO  • I-O-CONTAOL  CSAMS-LlSTD 


N1  CIMATVN 


23  CSANS-lISTD 


- csahs-«lsnsnt> 

V CSAMB-L I ST>  CSAHS-«lSNSNT> 


cjams-slsmsnt;  • SANS  >;i©-stainq> 
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2 


2* 

CID-STRXNG;  • CID> 

•54 

5 

37 

X!  <ZD-fT*ING>  vXD> 

3 

/• 

3* 

CD-OlV>  » DATA  01  VISION  CFIlE-SECTIOh;  CMORKy 

,m 

:» 

CL  I NO 

*5* 

3 

4 

HO  ACTION  REQUIRED  */ 

/• 

25 

cfile- sect ion;  • IL*  SECTION  <FILE-cXST> 

3 

file#scc*ik>  - true. 

/• 

X!  «VTV) 

2 

* l Lfistcici^riuc, 

/• 

41 

<F I LE-L I ST>  • <F  I LES; 

•21 

2 

, /•% 

MO  ACTION  REOUlRID  •/ 

42 

S'  CFiLl-LlST;  CFlLEJD 

•25 

3 

, / • 

MO  ACTION  REOUIRED  •' 

/• 

43 

<FlLES>  • FO  <I0>  CFILE-CONTROL*- 

43 

CRECORD-OESCR I FT  1 OND 

•22 

z 

oa 

*24 

4 

CALL  ENDSOFMtECOftO* 

•29 

4 

CUR* SVN-VAL UC>. NFF1 ; . 

*2* 

4 

CALL  SET*A00AESSvTENF4H0L£'*i 

•37 

4 

CAU.  SET#S#LENGTHvTCJ1A*TuO>. 

*3* 

4 

END- 

/m 

44  cfile -control;  - <file-list> 

•35 

3 

y» 

. y«  NO  ACTION  REQUIRED  •/ 

43  x • cemftv; 

•40 

3 

/• 

NO  ACTION  REQUIRED  •/ 

44  <FILE-LIST>  • CFlLl -CLEMENT; 

•41 

3 

y*  NO  ACTION  REQUIRED  *y 

47  X*  CF I LE-L IST>  CF I Lt- ELEMENT; 

*45 

3 

. r-  HO  ACTION  REQUIRED  »y 

4«  cfile-element;  - olock  < integer;  records 

•43 

3 

i y»  no  ACTION  REQUIRED  - FILES  NEVER  SLOCKED 

49  S'  RECORD  CREC -COUNT; 

•44 

3 

CALL  SET FSLENQTHv  VALUE < SF  > > t 

/m 

5#  X-  LA9CL  RECORDS  STANDARD 

*43 

3 

/*» 

y»  NO  ACTION  REQUIRED  »y 

31  X-  LAOEL  RECORDS  OMITTED 

•44 

3 

/• 

y*  NO  ACTION  REQUIRED  •/ 

55  X VALUE  OF  CID-STRInGD 

•47 

3 

. y«  NO  ACTION  REQUIRED  •/ 

53  •:  RE  C -count;  • < integer; 

»4* 

3 

/*  NO  ACTION  REQUIRED  - VALUEvSF>  CORRECT  •/ 

54  x'  c integer;  to  < integer; 

•49 

3 

DO. 

390 

4 

VALUE <mf> -value <sf>.  /•  variable  length  •/ 

391 

4 

CALL  SET*TVFE<4).  /*  SET  TO  VARIABLE  -✓ 

•92 

4 

END. 

/• 

53  CWORO  * MORKINO-STORAOE  SECTION 

y* 

53  CRICOAO-DESCR  1 FT  1 1>0 

•93 

3 

y* 

i y*  r*0  ACTION  REQUIRED  •/ 

34  X J CEMRTv; 

»94 

3 

/• 

i y*  NO  ACTION  REQUIRED  •✓ 

57  clink;  • linkage  section  crecoro-ccjcriftion; 

*59 

2 

CALL  ARIMTRERRORv  Nl  >i  ,•  INTER  FROG  COMM  •/ 

/• 

55  X • ;emftv; 

394 

3 

/•  NO  ACTION  REQUIRED  •/ 

39  crecord-oescriftion;  - CLEVEL-CNTRV; 

•57 

2 

ym 

* y«  NO  ACTION  REQUIRED  •/ 

49  X 1 CRtCORO-DCSCRIFTlOrO 

/• 

44  CLEVCL-ENTRv; 

S3t 

3 

y* 

y«  MO  ACTION  REQUIRED  •/ 

41  clevel-entrv;  • < integer;  cdata-id;  credefines; 

4i  cdata-tvre; 

339 

3 

DO. 

•40 

4 

CALL  L0AD4LEVEL. 

•41 

4 

IF  F*NDINQ#LITIRALC;9  then  •ENDING*LlT*lD-lD«STACK*FTRi 

•42 

4 

I/O. 

y* 

45  CDATA-ID>  - CXD> 

•44 

3 

y* 

y*  NO  ACTION  REQUIRED  •. 

43  X?  FILLER 

•45 

3 

DO. 

344 

4 

cuRtfvn.  value  <SF' •next  «svni 

•47 

4 

CALL  *UILD«SVP1#0L  •>. 

•4* 

4 

END. 

/"• 

44  credefim ej:  • redefines  cid; 

•49 

z 

DO. 

•70 

4 

C*L  SET9REDEF.  value  <SF'.  VALUE  <SF- 2 .' >. 

97 1 

4 

vALUEvMR’*!.  /•  SET  REDEFINE  FLAG  ON  .✓ 

*7X 

4 

CALL  CHECK  *FOR#LEVEL. 

•73 

4 

END. 

/• 

45  x cEf^rv; 

•74 

3 

CALL  CHECK  •FCRFLr  iL. 

44  idata-tvfe:  • cfror-list; 

tTS 

3 

- no  ACTION  required  •. 

•/ 


•/ 


•/ 


•/ 


•y 


*/ 
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/• 

97  S!  CfMPTV} 

•/ 

•74 

3 

/*  NO  ACTION  RfQUlRCD  •/ 

/• 

44  CPAOP-LlfT>  • CDATA-2LIM«NT> 

•✓ 

•77 

3 

/•  NO  ACTION  RCOUlACD  •/ 

/• 

4>  S'  CAAOP-L 1 f T>  CDATA-CLlMCMT} 

•/ 

•74 

3 

* /•  HO  ACTION  ACOUIACD  •/ 

79  <DATA-fLlMlir*  -PIC  CIMPUT} 

•/ 

979 

3 

CALL  P!C«ANALI2CAj 

/’• 

71  S'  OSAOC  COMA 

•90 

3 

CAU.  StTiT^VlvCOMA). 

/• 

72  S'  U4AQS  OlfAUAv 

•/' 

Ml 

3 

, /•  NO  ACTION  ACOUIACD  • 0CAAU.T 

/• 

73  S'  f ION  LfAOINO  CMP  AAA  TO 

•/ 

M2 

3 

cau.  sctmion<l4>* 

/• 

74  S'  f ION  T4AILINQ  CJCPAAATO 

•/ 

••3 

3 

CALL  StT4*I0N<i7>» 

/• 

73  S'  OCCURS  ClNTtOIA} 

•/ 

M* 

3 

OOi 

MS 

4 

CALL  0R4TVPC  < 124  > » 

IM 

4 

CALL  «T  fOCCUASv  VALUt  <*P>>* 

Mr 

4 

CMD» 

/* 

74  S'  SVNC  CDIACCTION} 

•✓ 

Ml 

3 

/•  NO  ACTION  ACOUIACD  - 4VT1  NACMINC  •✓ 

77  S'  VALUt  CLITCRAL> 

•✓ 

Ml 

3 

DO. 

IM 

4 

17  NOT  A 1 LK  M2CJCN0  THtN 

Ml 

4 

oo* 

M2 

s 

CAU.  PAINT*CAAOA<  Vf"'i 

MS 

s 

ACNO I MO«L  I TCA AL  •#< 

IM 

3 

2ND* 

MS 

4 

2ND* 

/* 

74  CD!  MOTION}  • LIFT 

•M 

3 

i /•  NO  ACTION  acouiaco  •/ 

/• 

7>  S'  4IQNT 

•/ 

• 97 

3 

/•  NO  ACTION  ACOUIACD 

/• 

M S'  <SAATV> 

•/ 

999 

3 

« /*  NO  ACTION  ACOUIACD 

/« 

41  CJCPAAATC}  • SCAAAATV 

•/ 

999 

3 

VALU«<SA >«2i 

/• 

42  S'  <k.*TV> 

999 

3 

» /*  NO  ACTION  ACOUIACD  •/ 

/• 

43  CL/TfAAL}  • C INPUT} 

•/ 

Ml 

3 

00* 

M2 

4 

CALL  LOADALlTCAAL* 

M3 

4 

PtND  I NO*. I TIP  AL1* 

M4 

4 

2ND* 

/• 

44  Sf  XtT> 

MS 

3 

00* 

999 

4 

CAU.  LOADPLITIPAL* 

99  7 

4 

PfN0lN0ALlT«AAL»2* 

999 

4 

2ND. 

/• 

43  S'  ICAO 

V 

999 

3 

Pf»eiN04LITtAAL-3* 

M S'  1PAC2 

•/ 

111 

S 

PtND I NO#L t TtAAL«4* 

/• 

47  S'  OUOTt 

•/ 

211 

3 

PtND!N04LITlAAL»3. 

/• 

M CINTC04A}  • < INPUT} 

•/ 

912 

3 

CALL  CONVtAT • I NTCOCA* 

/• 

M CXO>  • C INPUT} 

>13 

3 

VALUt <SP> •MATCH*  /•  2T0A2  2VM40L  TA4L1  P0INT2AS  •/ 

9\* 

3 

2ND*  2ND  OP  CASt  fTATtMtNT 

>13 

2 

«NO 

CODCMCN* 

>14 

1 

OCT  INI  MOCIDUM  4VTf> 

>ir 

2 

ac  tuan  inocxavStatc  >* 

>14 

2 

CNO 

OCT  INI* 

>1> 

1 

OCT  I M2  PAOCCOUAC  4VT«> 

>20 

2 

ACTURN  INDCK2<STATC>« 

>21 

2 

IND 

QCTIN2* 

922 

1 

INCSP  PAOCfDuAt. 

>23 

2 

*P-«P  ♦ L* 

>24 

2 

IP  IP  '»  PSTACKIIX*  TMCN  CALL  FATAlMAAOAv  *10  >. 

>24 

2 

VALUt  v IP  >•*.  CLfAA  VALUt  fTAC*  •/ 

>27 

2 

(NO 

INC IP. 

>24 

1 

L004h«40  PAOCCOUAC* 

• 

>2> 

2 

IP  NOLOOK  TMCN 

>34 

2 

00* 

>31 

3 

CALL  SCANNCA> 

>32 

3 

NOLOOK  •PALM* 

>33 

5 

IP  PAINT4T0KIN  TMCN 

>34 

J 

c»o. 
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M3  4 
324  ■* 

»r  4 

111  4 

111  4 

34®  1 

341  2 


332  1 
W1  2 
IN  2 

333  1 

334  3 

337  4 

334  4 

333  3 

341  3 

342  3 

341  4 


CALL  CAL7. 

CALL  A31NTtNUNM3vT0KiN>» 

CALL  33|HT*CM*»v  >* 

CALL  AMNT4ACCL*. 

«N0* 

•NO* 

•NO  LOOKAMCAD* 

riOtCON3V.lCT  AAOCCDUAC  vCCTATC.*  «VTI* 

OCCLAAC  » CfTATC.  1.  J.  k ' tVTCi 

J«lNOCXlvC*TATl>i 

K«J  ♦ IN0CS2vCtTAT«>  - 1 a 

00  1*J  TO  Li 

13  AtADlv  l >«TOKCN  THIN  »€T\JAt4  TAV*> 

CKO* 

tfTUAN  AALSCi 

•NO  N04C0N3LICT* 

3VC0VCA  "tOCCDUAC  tVTt, 

OCCLAAC  vTfA.  AfTATO  4VT1, 

OO  AOAfVfA. 

TfA.fAi 

00  MM  ILK  TfA  O 233. 

13  N04C0r*LlCT<*fTATf  •«TATCfTAC*v  TfA"  TM*N 
OO*  KTATt  WILL  3tA0  TQkCN  •/ 

J3  I30TI3  TWCN  fA  • TfA  - L» 

AC^WAN  Aft  ATI* 

trc>. 

T33  • T*3  « li 

•NO. 

CALL  fCANNCAi  TWV  ANOTHf*  TOKEN 

•NO* 

•NO  4CC0V13. 


344  1 «NDf#4||  3AOCIOU3C. 

• TH If  340CCC-OAC  fTCttff  THC  JNAOAHATJON  AEOUIAfO  §V  *3132 
IN  LOCATIONS  AtOVC  THC  fVNOOL  TAftLK  THC  FOLLOWING 
IN303NAT10N  tf  fTOACO 

0UT3DT  3 iLl  CONTAOL  4L0CK 
C0N3ILCA  TOOOLKS 
INPUT  4U33f3  AOlMTfA 

THt  OUTAL'T  4U33tA  It  ALSO  3ILL«0  SO  THE  CUAACNT  AtCOAO  If  wAITTVt 

343  2 CALL  4VTC30UTvfC0»* 

• T4  2 CALL  AOOAtOUT»NtXT3AVAlLA4Lf>* 

371  2 00  WHILC  OUT3UT4ATAO  0UTAUT44 U33, 

372  1 CALL  •VT130UTv433N>, 

371  1 CNOt 

374  2 CALL  NOVf<  OUTAUTAACt.  HAXAHtflOAV  »Af  flALCN-  »AIf 13LCN  > 

373  2 L 00  TO  L»  3ATCM  TO  " JHA  U44M- 

374  2 CNO  CN04AASf. 


3A00AAN  EXECUTION  fTAATS  HCAC 


377  1 CALL  N0V«vtNlTIAL4AO3.  NAX«NtMOAV.  AOA4LCNOTN). 

374  1 CALL  !N!T»SCANN«A* 

373  1 CALL  INtTffVNtOU 


344  1 

341  2 

342  2 

342  2 

344  2 

343  2 

344  2 

347  2 

344  2 


331  3 

332  3 

332  4 

334  4 

333  3 

334  S 

337  t 
134  9 


00  WHILC  COHA IL I NO* 

17  CTATC  v«  NAXANO  T NCN  /*  ACAD  *TATI  •/ 

00* 

CALL  I NCSA; 

STAT«»TACKvfA>  • STATE,  SAVC  C\JAA«NT  fTATf  •< 

call  loolamcao* 

I*OtTtNl* 

J • I * 0CTIN2  - li 
00  !•!  TO  J* 

17  ACAOKI)  • TOKCN  TNtt4 
DO* 

COAV  THf  ACCUHULATOA  17  IT  It  AN  INAVJT 
ITAINO  t7  IT  If  A At»CAV*0  NOAC  rt  OOCf 
NOT  NCCO  TO  4C  COAICO 

17  v TOKEN*  t NAUT if  TA  > OA  v TOKEN-L  I TEAAL  > THEN 
00  V«4  TO  ACCUHva'i 

VAACvK  »«ACCVJfl\ K > . 

CND* 

fTATC«A«A02v  l>* 

NOLOOK -TIHJCi 
t«J. 

(NO* 

CL  ft 

17  |«J  TNCI4 
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1000  4 

1 001  3 

1001  3 

1003  9 

1004  3 

1000  3 

1000  3 

1000  2 
1010  2 

1011  3 

1012  3 

1013  3 

1014  3 

1019  3 

1010  3 

loir  3 

1010  4 

1010  4 

1020  3 

1022  3 

1023  3 


00* 

CALL  AAIMTOCftftOAv  NA>* 

CALL  AAINTv  < IAAOA  NCAA  • '>>* 

CAU.  AAINTOACCUM. 

I A vfTATt  -AICOVCA*-#  TH»I4  COMA  (LINQ-AALSC. 

CND. 

CNOi 

CNO.  /•  CNO  OA  ACAD  STATC 
CLSC 

I A ITATOAAXANO  THtN  .'•  AAALV  AA0DUCT10N  fTATC  •/ 

00* 

MA-SA  - OCT  I NO* 

MAA1«MA  ♦ 1* 

CALL  CODCOOCN*. STATC  - NAKANO)* 

SA-MA* 

(•OCT  INI* 

J»STATCSTACK<3A’»i 

00  NHILC  vK  "AAALVlv  1 1 > O 0 AND  J OK* 

X • li 

CND* 

I A vK  •AAALV2U>>*0  THIN  CONAIL  I NO-AAlSC* 
fTATC  •IC* 

CNO* 


1024  2 

1029  2 

1020  3 

1027  3 

1020  3 

1029  4 

1030  4 

1031  3 

1022  3 

1033  2 

1034  3 

1039  3 

1030  3 

1037  3 

1030  2 

1039  1 

1040  1 

1041  1 

1043  1 


I A JTATK-NAXLNO  ThCN  /'•LOOfc.AHCAO  STATC**' 

DO* 

(•OCT  INI* 

CALL  LOOKAHCAO* 

DO  WMILC  vK  •LOOfclv  ( > >09  ANO  TOXIN  0*0 
(•(♦li 

CND* 

STATC«C00L2<!>« 

CND. 

CLSC 

00*  /'•AUSN  STATES*/ 

CALL.  1NCCA> 

STATCSTACK  v SA  » -OCT  I N2> 

STATC-OCTINli 

CND* 

CND.  ."•  OA  UHILX  COMAIL  I NQ  •✓ 

CALL  CALA. 

CALL  AAINTv  v'AAOCCDOAC#  >>• 

call  cndoaass* 

oc*. 


MODULI  (NAOAMATtON 

CODC  AACA  S(ZC  • U91M  7%29D 

VAAt AOLC  AACA  Sill  • 02ACN  >040  * 

MAXIMUM  STACK  S(ZC  • OOlCH  200 

1917  LINCS  ACAD 
0 AAOQAAM  CAAOAvS> 


CND  OA 


COMAILATION 


ISIS-  K l PL  «-*•  VI  l COMPILATION  OF  “COOK  INTIAP 
OSJ1CT  moool!  plac«0  IN  pi  intim  osj 
CQmpil**  InvOkIO  tv  AIMS*  n INTI**  Pin 


•paoilimqtnk Pt > 


I N T ■ * p 


00. 


COSOL  !MT«AP*fT«*  - •/ 
NOSnSLLV  0*0  IT  TO  * ltt  •' 

'•  OLOSAL  ^SCLMMTlONf  AMO  L.IT1AAL* 


lit 

LlTfSALLV 

LITfdPLLV  . 

too* 

lit 

9N  * . /• 

toor 

lit 

t' . 

CM 

lit 

u 

cF 

lit 

it 

lit 

*1*. 

»P.« 

lit 

*QNv|R 

lit 

-NIL*  Ttuf 

• (NTAV  TO  OPfAATlNQ  *V*T(H 


• JTIcITV  v**i 


MC IMS 

tOO Tit 

400*01 

INITIAL 

1NM> 

•VT1. 

A*CT* 

*oo*oi. 

C T* 

tvTf, 

MM 

*00*01- 

tttVTf 

*A*(0  MM 

vl> 

tVT«. 

f—Cif* 

AAltP  MSI 

<1> 

*00*01. 

«OLi* 

400*01. 

ntSvT« 

tAfttO  NOLO 

'D 

•VT1. 

HtAOO* 

*A*tO  NOLO 

vl‘ 

*00*01. 

COOC 

POlNTfSS 

COOttlTAAT 

lit 

2t*tM  • 

PAOQAAMtCOUNTC* 

CS9VTW 


Wtus. 

M<IC>  PAOGAAMACOUNTft  Vl> 
tAlCO  P*O0**H#C0UNT(A  Vl> 


•VT(, 

40MKSI. 


QLJtAL  INPUT  ANO  OUTPUT  AOUtlNO  •••••/ 


4 1 MCLAAt 

CUSS*NT»PCS  AOO*(SS. 
fTMTK#P«CT  LIT  14*« 


3 

1 

MONl  PAOCtOO**  vP.A>  (XT1ANAL. 

4 

2 

OCCL**C  P *VT1.  m *00*01. 

T 

2 

(NO  MONl. 

t 

1 

M0N2  P*OC(OU*C  *P.A>  tVTf  (XTfANAL. 

* 

2 

0€CL**C  P *VT(  A *00*01. 

It 

2 

(NO  M0N2< 

11 

1 

P*IUT4CN*A  PtOCCOUPC  vCM**>. 

12 

2 

0«CL**«  CM **  *VT(. 

13 

2 

CALL  N0N1  v2.  CNA*  ». 

14 

2 

(NO  PAINT •CNA*, 

13 

1 

CALF  PAOCfOOAt 

It 

2 

CALL  P*  iNTtCNA*  vCA  >i 

IT 

2 

CALL  P*INT*CN**vLP>> 

It 

2 

(NO  CALF. 

1# 

1 

PAINT  PAOClOOAt  v A *» 

2* 

2 

0(CLA*(  A AOCAtlS. 

21 

2 

call  calp. 

22 

2 

CALL  MONlv*.  *>< 

23 

2 

(NO  PAINT. 

24 

1 

*(A0  P*OC(OUA(vA>. 

23 

2 

0CCLAA8  A AOOAOS. 

It 

2 

CALL  MONlvlt.  A'. 

IT 

2 

(NO  AfAO. 

A*INT«CAAOA  AAOCCDUAC  vCODf.*. 
DCCLAAC  CO£>«  ADDACSS* 

CALL  CAlA, 

CALL  AAXNTACHAAvHIOH<COOC>>i 
CAU.  A*XNT#CHAA<LOU<CODC>>i 

CND  AAINTtCAAOAi 


AATALMAAOA  AAOCCDUAC  <0300. 
DCCLAAC  CODC  ADDACSS, 

CALL  AA 1 NT  ACAAOA  v CODC  > » 
CALL  •OOTtlli 
CND  AATALMAAOAj 


SrrtOAA:  AAOCCDUAC. 

call  nota  <2*.  cuaacntaacs  * staat#oaasct>» 
(no  srrtomj 


OACN  AAOCCDUAC  <AOOA>  SVTC. 

2 OCCLAAC  ADOA  ADDACSS* 

i 2 CALL  STTtOMAj  /•  INSUAf  OIACCTOAy  ACAO  NON'T  CLOMCA  coac 

ACTUAN  nON2<l3*  ADOA>j 
(NO  OACN. 


CLOSC  aaoccduac  . AOOA  > > 

\ 2 CCCLAAC  ADDA  AOOACSS. 

IA  N0N2vl*.  ADDA >-233  TMCN  CALL  AATALMAAOAv 'CL ' >« 
ire  close. 


OCLCTI  AAOCCDUAC. 

CALL  riON4<  1A«  CUAACNT SACS > * 
CND  DCLXTC. 


MAKE . AAOCCDOAI  vADDA). 

DCCLAAC  ADDA  ADOACSSi 

IA  M0N2<22-  ADC*>-233  TWIN  CALL  AATAL*CAAOA< 'ME' >. 
CND  nAAC- 


DtSKAACAD:  AAOCCOOAC  AVTC- 

ACTVJAN  nON2<2A.CUAACNT«ACa>i 
CND  DXSKAACAD- 


DtSKAUAXTl.  AAOCCDUAC  SVTE. 

ACTUAN  N0N2<2L- CUAACNT  #ACA>i 
CND  DISK4WAXTC- 


/•  ••••*••„•  UTXLXTV  aaoccduacs 


DCCLAAC 

SUtSCAXAT  <•>  ADDACSS. 


ACS  AAOCCDUAC < ADDA > ADDACSS. 

/•  this  AAOCCDUAC  ACSOLVCS  TMi  ADDACSS  OA  A SUSSCAXATCD 
XDCNTXAICA  OA  A LXTCAAL  CONSTANT  -✓ 

DCCLAAC  ADDA  ADOACSSi 
IA  ADDA  > 12  THCN  ACTUAN  ADDA. 

XA  ADDA  •:  f THtN  ACTUAN  SUCSCAXATt  AOOA)i 
. . DO  CAM  AOOA  - f. 

> 2 ACTUAN  <'•->* 

I 2 ACTUAN  <'  Oi 

2 ACTUAN  <'  ')* 

2 CND* 

I 2 ACTUAN  fe 

CND  ACS* 


MOVC  AAOCCDUAC <AAOM.  DESTINATION.  COUNT >• 

2 DCCLAAC  'iAAOM.  DESTINATION.  COUNT ADDACSS. 

< A tASCD  AAOM.  D CASCD  DESTINATION-  CVTC. 
DO  WMXLC  < COUNT  -COUNT  -1-0  OAAAAWi 

O-A. 

AAOli-AAON  ♦ L, 

DCSTINATION-OCSTXNATION  ♦ L. 


L25 


5SE55EESS  ESESE  BESESESE  E EEESI  lug  t clllwus  «»» 


IMP  ^Vtv 


II  1 FILL  FROCEDURKnOCSYINATION*  COUNT.  CNAR>. 

•»  2 DCCLARf  • DCIT I NAT  l ON.  COUNT  ' KODAK SS 


(CHM.O  MIIP  DCfT J NAT  ION>  »VTI> 
2 DO  WNIL1  v COUNT  «COUNT  - 1>0  AFFRFN* 

2 C~CtUlH- 

5 DC*T1NAT10N*0CST!NAT10N  * 1, 

3 IND> 

2 I NO  FILL* 


1 CONVfRTRTORMCX  AROCCOURCvAOlNTCR*  COUNT)  ACORCSS. 

2 DCCLARC  FOIMTVR  AOMISS.  COUNT  AVT£> 

2 ArCTR«A* 

2 AASC-AOINTKR. 

2 DO  CTR  • # TO  COUNT -L 

J AACTR-SNLvAACTR.  3>  * SNLvAACTR,  !•>  * MRVTICCTR)  - A'. 

3 KND* 

2 RfTURN  ARCTR* 

2 (NO  convcrtrtorhcx* 


• ••••••••  COOC  CONTROL  RROCCOURU 

1 DCCLARC 

•rancmrflao  »vn  initial  «:falsc>i 

1 INCJRTR  FROCCDURC  ^COUNT'* 

2 DCCLARC  COUNT  AVTC, 

2 RROORAMRCOUNTfRaRROORANRCOUNTlR  * COUNT* 

2 (NO  INCJRTR* 


1 OCTRORRCOOC  RROCCDURC  AVTt, 

2 CTR«C«RVTCv*>. 

2 CALl  INC4RTRvX>* 

2 RfTURN  CTR* 

2 CND  OCT *OR*COO€. 


1 CONORARANCH  RROCCOURK  COUNT  >« 

TNU  RROCCDUffC  CONTROLS  ARANCNlNO  INSTRUCTIONS  •/ 

2 DCCLARC  COUNT  AVTf, 

2 IF  ARANCHAFLAO  THCN 

2 Da 

3 »AANCMAFLAO*RALSt* 

3 FROQRAWACQuNT1A-CRAOOAvCOUNT>. 

3 CND* 

2 KLSC  CALL  INCRRTR<  SK.v COUNT.  l>«2>* 

2 CNC  conoraranch. 


1 INCRRORRARANCM  RROCCDUAC<NAAX>* 

2 DC  CL  ARC  NARK  §VTt, 

2 IF  NARK  THCN  CALL  INCRRTRt*.** 

2 KLSC  FROORANRCOUNTtR«CRAOORvO>. 

2 KND  INCRROR— RANCH* 

/.••••••••a  «CONAARISONS 


1 CHARrCOHRARC  FROCCOUAC  AvTf. 

2 AASC«CRAOORvA>« 

2 *OLD«CRAOOAvi>* 

2 DO  ARCTR-A  to  CRAODRvi)  - 1* 

3 IF  AMVTCvAACTR)  > H«AVTCvARCTR>  THCN  RffTURN  L 

3 IF  ARAVTlvARCTR > < MRAVTtv A#CTR>  THCN  RfTURN  A* 

1 CNO. 

2 RCTVJRN  2* 

2 INC-  CNMMCONRARC. 


14A  1 

141  2 

142  2 

I'M  2 
149  2 


STRINORCONAARC  RROCCOURCvFIVOT>. 

DCCLARt  A1VOT  AVTC* 

IF  CHARRCONAAR«»RIVOT  THCN  ARANCNRFLAO-NOT  ARANCMRFLAa 
CALL  CONORARANCHv3>. 

KND  KTRINORCONAARC. 


144  1 NUMCRtC  •ROCCt-ORCvCNAR  • §VTf 

147  2 DC CLARK  CHAR  fvTf 


126 


* 


13#  1 

131  2 

132  2 

152  2 


134  1 

133  2 

134  2 

137  2 


13#  1 

13#  2 

14#  2 

141  2 

142  2 

142  4 

144  4 

143  4 

144  2 

147  2 

14#  2 


RCTURN  vCMAR  ANO  vCMAR  v>  » )< 

CNO  NUMCRIC. 


LITTCR  AROCCOORC  v CHAR  > #VTt. 
CCCLARC  CHAR  #vTf. 

RCTurn  \ Char  >«'A'>  and  vCmar 
CNO  LMTTW*J 


S ION.  AROCCOUAfvCHAR*  #VTC. 

OCCLARC  CHAR  #VTC. 

RCTURN  <CHAR«'*'>  OR  v04R«'-')» 
KNO  5 1 ON, 


COnRSNUH*UNS  I ONCD  AROCCOORC. 

#A*C»CAAOORv#>i 
00  A#CTR«#  TO  C*A00R<2>-1> 

IF  NOT  NUIitRlCv#4#VTCvA«CTR>>  THIN 

00. 

•RANCM4FLA0-N0T  #RANCM«FLAO. 
RCTURN. 

CNOi 

fNDl 

CALL  C0N04#AANCM<2>, 

CNO  C0HARNUM4UNSIGNC0. 


»49  1 COr*«NUff«SiaN  AROCCDUAC. 

17#  2 #ASC*C4AOORv#>. 

171  2 00  A4CTR-4  TO  C4A00R<2.'-1. 

172  2 IF  N0T<NO4-WRIC<CTR:-#4#VTIvA«CTR>> 

OR  SION\CTR> ) THCN 

172  2 00. 

174  4 #RANCH4RUA0-N0T  SRANCHAFLAO. 

173  4 RCTURN. 

174  4 KNO. 

177  J (NO. 

17#  2 CALL  C0ND*#RANCM<2>. 

17#  2 CNO  COMR««jri#SIONi 


1##  1 COnARALANA  AROCCOORC, 

1#1  2 #AU*C«AOOR<#>. 

1#2  2 00  A4CTR-*  TO  C«AOOR<2»-1. 

1#2  2 IF  NOT  LCTTCR v UIVTI  v A JCTR > > TMCN 

1#4  2 OOi 

1#3  4 #RANCH4FLA0-N0T  #RANCM«FLAO. 

1#4  4 RCTURN. 

1#7  4 CNO. 

1##  2 CNO. 

1##  2 CALL  C0N04#RANCHv2>. 

1##  2 CNO  COARRALFHAi 


•NUMCRIC  ORCRATION* 


<R#.  RL»  R2>  <1#>  #VTC<  /• 

SI0N#v2>  #V7C. 

COCCJRTO.  0CCRRT1.  0CC1AT2>  #VTt> 

OCCJRTA  <2»  #VTC  AT  < OCC#RT#> 

OVCRFLOU  #VTC. 

R#RTR  9VTC. 

SNITCH  #VT1> 

SIONIFRNO  #VTC. 

IONf  LIT  10H  . 

AOSITIVI  LIT  1 . 

NfOITIVf  LIT  '#-. 


•VTC.  /•  RCQISTCRS  •/ 


192  1 

192  2 

194  2 

194  2 

19#  2 

199  2 

2##  2 


2#1  1 
2#2  2 
2#  2 2 


CMCCK4F0A4SI0N  AROCCDURCvCHAR > #VTC, 

OCCLARC  CHAR  #VTt, 

IF  HUfM* ICC CHAR.'  TMfN  RfTURN  AOSITlVC. 

IF  NUHCRICvCHAR  - 20N*>  THffl  RCTURN  NCOlTlVt. 
CALL  ARINTMRRORv  SI  ' 

RCTURN  AOSITIVf. 

CNO  CHCCKAFORFSION. 


ST0RC4IMMCDIATC  AROCCOURC. 
oo  CTR«4  TO  >■ 

R#'CTR  **R2'  CTR  .'. 


i 


1*4 

2 

IW. 

105 

2 

decfpto-occfpti; 

20* 

2 

SXGNO<O>-SIGN0<2>; 

207 

2 

ENO  STOREFIMnCDlATE* 

200 

1 

onsfceft  procedure; 

205 

2 

DECLARE  CCT*,  FLAO)  OVTE* 

2X0 

2 

17  vCFLAG-SHRCOFOVTCO)*  4>;-0>  00  CFLAG-5>  THEN 

2X1 

2 

DO; 

112 

DO  CTR-0  TO  0; 

212 

4 

OOOVTf  <CTR>-SHLc8F«VTCCCTR>*  4)  00  SHR < MOVT* < CTR  ♦ 

214 

4 

END; 

215 

2 

040VTCC5>-SHLCM0VTC<5>.  4^  00  FLAG, 

210 

2 

(NO; 

117 

2 

ELSE  OVERFLOW- TRUE. 

210 

2 

END  ONEFLEFT; 

215 

1 

OMSORXGHT.  PROCEDURE; 

220 

2 

DECLARE  CTR  OVtl; 

221 

2 

CTR— 10; 

222 

2 

DO  INOEX-1  TO  5; 

222 

2 

CTR— CTR— 1> 

224 

3 

340VTt<CTR>-SHR<MOVTl<CTR>.  4';  OR  SHL v BFOVTE < CTP-1 > , 4>i 

225 

3 

END; 

220 

1 

040 VT£ < 0 > —SHR < BFOVTE < 0 > * 4>; 

227 

2 

IF  B40VTECO)  • 05W  THEN 

223 

2 

O4«VTE<0>  - 55H* 

225 

2 

EUD  ONCFRIGHT; 

220 

1 

SHIFT4RIQHT  FROCEDURC<COUNT>; 

221 

2 

DECLARE  COUNT  0VTE* 

222 

2 

DO  CTR-1  TO  COUNT; 

222 

3 

CALL  ONCFRIGHT; 

224 

3 

ET*>; 

225 

2 

CNO  SHIFTFRIGHT; 

220 

1 

SHIFT FLEFT : PROCEDURE  CCOUNT); 

227 

2 

DECLARE  COUNT  8VTC; 

220 

2 

OVERFLOW-FALSE; 

225 

2 

DO  CTR— 1 TO  COUNT; 

240 

3 

CALL  ONEFLEFT; 

241 

3 

XF  OVERFLOW  THEN  RETURN; 

243 

3 

END; 

244 

2 

END  SHIFTFLCFT; 

245 

1 

ALLIGN-  PROCEDURE* 

240 

2 

BASE-  RO; 

247 

2 

XF  DCCFPTO  > OCCFPTi  TV«N  CALL  SHIFTFRXGHT<DECFPTO-OECFPTl>; 

245 

2 

Cl  TX  CALL  SH I FTFLlFT  < DCCFPTl-OECFATO  > ; 

250 

2 

END  ALLIGN; 

151 

1 

AOOFRO  PROCEDURE < SECOND.  BEST); 

152 

2 

DECLARE  <3tCONO.  DEJT>  ADDRESS*  <CV*  A*  8*  X*  J>  »VTE* 

252 

2 

HOLD-  SECOND; 

154 

2 

BASS  - DCST. 

155 

2 

CV-O; 

250 

2 

CTR— 5* 

257 

2 

DO  J-l  TO  10; 

250 

2 

A— AO < CTR); 

255 

3 

B-HAOVTECCTR); 

200 

2 

X-D€C<R-CV); 

201 

2 

CV— CARRV; 

202 

3 

x-occcx  ♦ §>. 

202 

3 

CV-<CV  OR  CARRV > AND  1; 

204 

3 

B#tvn<CTR>-I; 

205 

3 

CTR— CTR— 1; 

200 

2 

END; 

207 

2 

IF  CV  THEN 

200 

2 

DO; 

205 

3 

CTR-5; 

270 

2 

DO  J • 1 TO  10; 

271 

4 

I-OFOVTf<CTR>; 

272 

4 

X-0ECCX4CV>; 

272 

4 

CV-CARRV  AND  1* 

274 

4 

OFOVTECCTR)-!; 

275 

4 

CTR— CTR- 1; 

270 

4 

END; 

277 

3 

END; 

270 

2 

END  AOOFRO; 

1>*4>. 


128 


27* 

2M 

2*1 

2*2 

2*2 

2*4 

2*3 

2M 

2*7 

200 

20* 


CONftLlMfNT  »ftOCCU*K . UUMO  , . 

C*CCLAft*  NUMO  tvTt, 

ftIONO<NUMO>  • fiQNOvNUNO'  *Oft  t. 

00  CAM  NUHfcj 
*0U>-  **i 
HOLO*  ftl. 

NOLO*  12 

CNO* 

00  CTft-0  TO  ** 

H#OVTI<CTft>-**M  - M«*VTtvCT*>, 

C NO* 

OO  CONALIrtCNT. 


COMAL INCNT  SION 


S»«vft2<»>.  4>O0> 


2*1  1 *;i:WO  »ftOC*DUftt  IVTt 

2*2  2 OCCLAftt  l OVTt. 

2*3  2 l*  vSHLv«U<0>.  «/O0>  OK 

THCN  ftCTUftN  PALM, 

2*3  2 lUt  00  !•  1 TO  ft. 

2*4  3 1ft  ft2^ I ><>•  th*u  ftCTUftN  ftftLS*. 

2*0  3 CNO. 

2*#  2 ftfrunN  t»u*> 

100  2 CNO  *2«ZXftO. 

101  1 CHICK  MOSUL!  AftOCCOUftC. 

102  2 ift  SHftv«2<#>.  <>•*  thcn  call  comalimcmt<2>. 

104  2 1ft  SHft<ft2v0).4>O«  THIN  0 VCAALQU» T ftuC. 

104  2 CNO  CHUCK  MOSUL  T • 


107  1 CHKCkftSlON  AAOCCDuftC- 

100  2 1ft  St&«0\0>  AND  SIONOvl)  TmCN 

10*  2 00. 

310  3 SlGN0v2>4*0SXTtvCi 

311  3 ftCTUftNi 

312  2 CNO. 

313  2 S!ONO<2>"*«atTivC. 

314  2 Ift  MOT  S!0NO<0>  ANO  NOT  SXQN0<1>  THCN  AfTUANj 

114  2 Ift  SIONO<0>  THIN  CALL  COMAL IMCNT<l>i 

110  2 CLM  CAU.  COMAl  1NNT(I)< 

21*  2 CNO  CM0CK4S10NJ 

120  1 LEAOIHOftZIftOCS  AftOCCOUftC  vA00ft>  OVTC. 

121  2 OCCLAftC  COUNT  §vTC.  AOOft  AOOftCSS. 

122  2 COUNT-0. 

323  2 OASC-ADOftj 

324  2 00  CTft-0  TO  *i 

123  3 Ift  <043Vri<CT*>  ANO  OftOM>  O 0 THCN  ftCTUAN  COUNT, 

127  2 COUNT-COUNT  « 1. 

320  1 Ift  vMOVTfvCTft?  ANO  OftM>  C*  0 THCN  ftCTUftN  COUNT . 

110  2 COUNT -COUNT  * U 

221  2 CNO. 

222  2 ftCTUftN  COUNT. 

223  2 CNO  LCAOtNGJZCROCS. 

234  l CHCCKOOCCirtAL  MOCCDUftf. 

233  2 Ift  0*C*AT2O<CT*  -CMVTI<3>>  TNCN 

234  2 00. 

237  3 OAJC-  02. 

230  2 Ift  0CC4ftT2  > CTft  T>«ri  CALL  SHIFTM  liJHT  vO€CAAT2-CTft  ,, 

140  2 ILil  CALL  SM!ftTiLfftT<CTft-0CCJAT2>. 

341  3 CNO. 

242  2 Ift  LSAO I NGfCOftOCS  v ft!  > Cl*  - C40VT«v2>  THCN  OVfftftLOM  • TftUC. 

344  2 CNO  CHCCK40CCIMAL. 


143  1 AOO  AAOCCOUftC. 

144  2 OVCftftLOM-ftALM. 

347  2 CAU.  ALLION. 

240  2 CALL  CHICK#*  l ON. 

14*  2 CAU.  ACOftOv  »i,  «2>. 

230  2 CAU.  CHCCKJftCSULT. 

231  2 CNO  AOO. 


232 

232 

334 

133 


ADCJMft  1 CS  AftOCCOUftC  v COUNT 
OCCLAftf  vl.  COUNT'.  OVTt. 
00  l«l  TO  COUNT. 

CAU.  AOOftftOv  ftl.  ft2 


— ' 


354 

3 

CNO. 

397 

2 

cnc  Aociiimu. 

'31 

1 

sr«Mui.Tfc>iv  hockch*l 

2 

0v*47L0M*7AlSC. 

2 

SlGN4v 2>  • vNOT  vSl4f<9v4>  vO*  SI0N4vl)>> 

ANO  4 IN. 

341 

2 

C*a.  MU.s  »2.  14.4). 

342 

2 

(I«  «TWM.T»0|V. 

343 

1 

41  *<34447111  TAOCCDoA*  •VTf, 

344 

2 

OCCLAAf  I 4VT*. 

349 

2 

CO  274-4  70  *• 

344 

3 

IF  K1\CT*  >>^  1 • Th«M  **TU«H  rn\J» 

344 

3 

XW  41 vCTA ><l  7HCM  7CTUAN 

374 

3 

CNO* 

371 

2 

trru4N  rmMj 

372 

2 

CNO  7l*OACATCA. 

373 

1 

HJL TtTLV  740CI0UA*vVALU*>. 

374 

2 

OCCLAA*  VALU*  4V7C. 

379 

2 

17  vALuCOI  7MCT4  CA»L  A00«SC4ICSi  VALUC>. 

377 

2 

MU-  40. 

27f 

2 

CALL  0N47LIF7. 

37* 

i 

040  MUL717LV* 

344 

1 

OlVXO*  74CCCUJ4C. 

341 

2 

OCCLAA*  vl.  J.  K»  l20.  L21.  X>  4VTC> 

342 

2 

CALL  SC77MUL7701V. 

343 

* 

17  vLlO  -cCAOlNOJXCAOCSv  74>  O 

<X  • sLll  • LCAO ( NO*ZCAOCJ v Al>>) 

tncn 

344 

2 

00. 

349 

3 

17  L24>L21  THCN 

344 

3 

00. 

347 

4 

IASI  • *0j 

344 

4 

CALL  SHl7TiCt77vl  • c24-L21>. 

34* 

4 

0CC*7T4*0CC*7T4  • U 

3*4 

4 

X • LZL> 

3*1 

4 

two. 

2*a 

3 

CLSC  00. 

3*3 

4 

MU  • 4 

3*4 

4 

CALL  SMlTTiLSTT  vl  -L21-l20>» 

2*9 

4 

0CCI7T1-0CC7T1  ♦ l. 

3*4 

4 

X • LX4j 

2*7 

4 

CNO. 

3*4 

3 

040. 

3»* 

2 

DCC7T*-  14  - X ♦ 04C*7 1 - 0CC7T4. 

444 

2 

CALL  C0M7LIM«N7v4>* 

441 

2 

00  I • X 70  1*. 

442 

3 

J-0. 

443 

3 

00  MMILI  41I04CATV4. 

4#4 

4 

CALL  400*40 v 41.  4l>. 

449 

4 

17  4lv4>  • »*N  THCN 

444 

4 

CALL  C0M7LIMO47  <1>. 

447 

4 

JmJ+ij 

444 

4 

040. 

44* 

3 

L-SHAvl.  1.. 

414 

3 

(7  [ THCN  42vO-42<K)  04  J. 

412 

3 

CLSC  A2vk.»-42vK>  04  SMLvJ.  4>. 

413 

2 

•AS*.  40. 

414 

3 

CALL  0N**4I0HT. 

419 

3 

CNO. 

414 

2 

CNO  oivtoc. 

417 

1 

L0A07AICHA4  740CC0U4*vCHAA>. 

414 

2 

OCCLAftf  CHAA  iv7f. 

41* 

2 

17  vfWlTCM  -NOT  SWITCH)  THCN 

424 

2 

il*V7«v7#4T4  ••4*4VTC V 7*774  > 04  SHLvCHAA  - 30H. 

421 

2 

CLSC  474VT*v 7*774  -A*7TA-i>-CHAA  - 30H. 

422 

2 

CNO  lOAO*A*CHA7 

423 

1 

lOAO*NUM4«AS  4700*004*  < A004 . CNT"*. 

424 

2 

CCCLWI*  A004  TC'OACSS.  vi.CN7>4VTl. 

429 

2 

m0L0-4CSvA00A.. 

424 

2 

CT4-CN7. 

427 

2 

00  INOCX  • 1 TO  CNT 

424 

3 

CT4-C77-L. 

41* 

3 

CALL  wOAC«AICmA4vN*4V71vCT*  •>. 

434 

2 

040. 

421 

2 

CAwL  INC*777«  9). 

432 

2 

CNO  lOAOONUMOC*** 

423 

1 

srrtcOM*  TToccDuTi  tsxai«oiN>< 

424 

DCCLATC  SX0N02N  §VTf, 

423 

2 

DO  CA»I  vCT7  •C#0VTIs4>i. 

430 

* 

OH  SI-  70. 

427 

3 

OH  SI-  IL 

430 

3 

OH  SC-  *2, 

430 

- 

C#*N 

440 

2 

DtCOATAvCTW  *«CO0VTtv3>* 

441 

2 

S X QNO  v C T7  '•*  I ONO  l »4* 

442 

2 

CALL  7 ILL.  vOHSC.IO*  0>* 

443 

2 

707T7«0. 

444 

2 

sw  ITCH-7  AlSC* 

445 

2 

040  scttcoao. 

440 

1 

LOAOONUNC7IC  770CCCU7C. 

447 

2 

CAU.  srrocOAC>vi>* 

440 

2 

CALL  lOAO#NUHOC7SvCOAOC*vI 

440 

2 

CNO  wOAO*»4UMC71C. 

4 90  1 l0A0«NUN0c2T  TTOCCOoTC* 

491  2 DCCLH7fvLXT#firt,  *LH0>  OVTf. 

492  2 CHA70SI0N  AOOCfDUTt- 

453  3 ClT*fIZI-ClT«*lII  - U 

494  3 hGlO«hiXD  ♦ 1* 

459  Z (NO  C**«SIOH, 


4M  2 
457  2 

490  2 

43#  2 

400  1 

401  2 

402  3 

403  2 

404  2 

400  4 

407  3 

400  2 

40*  2 

470  2 

471  Z 

4ra  : 
474  2 

479  2 

470  2 

477  2 

4Tt  2 


LlTffXZt»COOVTl<2>. 

N0L0*C7A007<0>< 

17  HOOvTCvO;*'-  THtN 

CALL  CHOU#  f I ON. 

call  »rr»LOoovN*o:Tivf>. 

CNO* 

CL  SC  DO. 

17  hOOVTI  v 0 > • ' ♦ TM«N  CALL  CH**9%10H4 

call  srr#cooc>v7osiTivt>» 

CNO* 

TLAO^O* 

DO  INOCX-l  TO  UTtflll- 
CT7«CT7»1* 

17  HOOVTI<CT«.-«  THCN  TlAOh-XTOSHC 
r tm  CNO.  l0A0OA#ChA7vMOOvTClCT7>>» 

CNO. 

D€C07T0«C00VT1S4>>«  7CA0* 

CALC  INCJ7T7<5>* 

CNO  LOAOONUNOLIT* 


47»  ,1  JTO*I#OWt  770CCDU7C. 

400  2 17<  SMITCh  -NOT  SWITCH.  THtN 

401  2 0#tVTlvO>-SHAvHOOVT*vO>.  4>  00  0 

402  2 (Lit  Da 

402  3 hOLO-nOLO-1* 

404  3 MOVTIvO>«vNO#VTfvO>  HNO  07«.  07  O’. 

409  3 CNO* 

400  2 OASfOASI-1, 

407  2 CNO  ST07C70NC* 


400  1 rr07t»A*#CH^  MtOCCDUTCv  COUNT'* 

400  2 DCCLA7C  COUNT  OVT*, 

4N  2 SWtTCH^ALSC. 

4»1  2 NOLO-  72  ♦ 0* 

402  2 DO  CT7-1  TO  COUNT. 

403  2 CAU.  tTOTCOONKi 

404  3 CNO. 

409  2 CNO  STOUIAMCHM 


*00  i SCT420NC  »70CC0U7C  v A0C*7  • 

407  2 COCLA7C  A007  A007CSS* 

400  2 17  NOT  SX0N0v2>  thin 

400  2 00* 

900  2 OAOC-AC-07. 

901  3 MOvT«vO.*OOOvT«vd • 07  JONC> 

902  I CNO* 

502  2 CALL  IUCJ7T7\4>* 

304  2 CNO  JfTOlONl. 


vCT7-i. 
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503 

1 

srr«siOK4iiP  faocil*>ac  .w*-- 

3M 

2 

C*CCLAAC  AC <*  ACOACJS- 

3©T 

MJC4COA 

?0* 

2 

IF  *I0N*i2/  tn*M  f##«TIvO>»  * 

310 

2 

(Lit  •••'.TIvO  • * . 

311 

2 

CAU.  imcjat»<*>. 

312 

2 

Cnd  UTISIOMU^I 

31 2 

1 

»TOAt»NUHCMC  *AOCCDuAC. 

314 

2 

CAU.  CMfCK#0«ClP»AL> 

313 

*ASC»CAADDAv©  * CJ*VT|v2>  -1 

31* 

2 

CALL  *T0ACtA**CHAft«C4*VTf«.2>> 

31T 

2 

CNf  ST0A*4NUN«mC. 

X 


:r*UT -OUTPUT  ACTION* 


511  1 CCCLAAC 


FL*i*OFFSCT 

LIT 

13 

rATtNT#Orrf*T 

LIT 

12 

•ICING 

LIT 

12  . 

ataaoffsct 

LIT 

IT*. 

•off alChOTn 

LIT 

12*  . 

.MMNb 

LIT 

'CA ' . 

TfAMlNATOA 

LIT 

1AM'. 

fNO*OF»ACCOAt- 

•VTf. 

INVALID 

ftVTl, 

•ANDOMAFlLi 

*VTf, 

cuaacnt*flao 

ivTC, 

'CUI  . Tf 

1ASCD  CUAACT4TAFC* 

•VTC. 

rCMA DC* 

1A5KD  CUAACfiTAFC* 

ACDACSS. 

rcmvTiiA 

MIC!  CUAACI4TAFC* 

vi.'  iVTC. 

FCMAOOAAA 

Mill  CUAACNTaFC* 

vl>  ADDACS*. 

HjFFAATA 

ADDACSS- 

A OC*tSS, 

*UFFfTAAT 

AOOACSS. 

M»»»vn 

tAfCD  *UF*-*FTA 

•VT1. 

CONAOUFF 

ADDA  CSS 

initial 

vtOH>. 

CONMVTI 

SASIC'  CONAOUFF 

•YTC. 

CONJINAUT 

ADOACSi 

INITIAL 

vl2H'. 

313 

1 

ACC  CAT  AftOCCDUAC. 

320 

2 

CAU.  CALF. 

321 

2 

CALL  AAINT*CNAAv1A>0. 

CAU.  CALF.  */ 

322 

2 

CALL  FIcl.CONAINFUT.  vCON*#VTC  -C**VTCs2>4- 

321 

call  ACADvCONAK'FF'*. 

324 

2 

CALL  «0VCvC0»*4lNFV>T.  ACSvCAADDAvO'  • CONA*VTI 

323 

2 

call  INCIFTAvIj* 

32* 

2 

tNC*  ACCCFT 

32T 

1 

DISFlAv  faoccduac. 

32* 

2 

DCCLAAC  MCNT  *vTC.  *LANK  uIT  2©H  . 

323 

* 

•A*C«C*ADOAvO>» 

31© 

2 

CALL  CALF. 

321 

2 

SJCNT  • C«*VTtvi>. 

312 

2 

CO  UNlLt 

MCvTf<**COT  •OACNT  - 1/  • CLANK. 

323 

1 

KND. 

314 

2 

DO  CTA  • 0 TO  CACNT 

323 

1 

C FAINT  IChAA  v *1*VTC  v CTA  > > » 

31* 

1 

CIO- 

31T 

2 

CALL  INCAATA<1>. 

31* 

2 

KND  OISFLAV; 

323 

1 

fCT»FlLC«TVAf  FAOCCCOACvTVFC" 

54© 

2 

CCCLAAC  TVAC  *VTC- 

341 

*ASC*C*ACOAvO' 

342 

2 

MCVTC  v FLAOFOFF ff  T « • T\  FI, 

341 

2 

CND  StTJFlLCATYFC. 

r-44 

1 

OCTFFILCATVAC  FAOCC&OAC  *VTC. 

343 

2 

*A*C<JACOAvO' 

54* 

* 

ACtUAN  M**Tfv«LAGlOF»SCT 

34T 

* 

Ito  OCT*FlL«fTv»t 
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i 

i* 

I 


%i  i ;c*«;»o  rroceduie, 

34#  I enC-RORROECORC-.  INv*c::-~»*ci*, 

330  2 IR  CRA2C*  0 ••CuARENTlRCi  '«Cf.  RETURN. 

• STORE  CURRENT  R0  INTER  .5  AN2  SET  ; NTtRf^Aw  -RITE  MARK 

331  2 4ASI -CURRENT  *RC4- 

33 2 2 RCBRAC«C-*R*iRTR*ORRSET  -4c*R*RTR, 

334  2 RC4R4VTERA^RUA0R0RRSET ••CURRCNTRRUAO* 

* uOAO  NEW  .RwoCS  -•- 

333  2 §URR«ENC>-'BURRRSTART  «v CuRRfNT#RC4  -CRAOURvO.'  >- START 10RRSET .• 

• »urr  ruEno  th, 

334  2 CuRRSNTRRuAG-RC4R4VTE*AvRUAuR0RRSET>. 

337  2 SuRRRRTR«RC4RAt.C>RRAvRTRiORRSBT  . 

334  2 2ND  SCTRIRO. 


33#  1 

340  2 

341  2 

342  2 

342  2 

344  2 

343  4 

347  4 

344  4 

3<»  1 

3*0  4 

371  4 

372  4 

373  4 

374  3 

373  4 

377  4 

374  4 

37#  2 

340  2 

341  2 

342  2 

343  2 


GR*N4RlUf  RROCEOURC'.TVRI  '• 

C4CLARE  TVRf  BYTE. 

CAU.  *CWIU«4TV4«n;TV4C>. 

CTR«0RENvCURRCNTRRC4  •CRAOt'R  *■  0 •>  > . 
t«0  CASE  TVRE-1. 

• INRUT  *✓ 

oo. 

IR  CTR-233  TX«N  CRU.  RRINTRCRRORv  MR  \>. 

RCERAOC*  RAv  RTR  J0RR54T  > •CURRENT  lRC8*idOH. 

END. 

• OUTRUT  •, 

^O. 

CALL  DELETE. 

CAU.  nAMvCRADORvO;  >. 

RCERAC-ORRAvRTRfORRSET  ••CURRENT RRCB*START#GRRSET-l. 

ETC*. 

/-  1-0  •/ 

oa 

IR  CTR-233  THEN  CALL  RATALRBRROR'  NR 
RCBRAOOR#**. RTRJORRSET  ■> •CURRENT *RC4  * lOON. 

END. 

END. 

current racb«*o-  ,-■•  rorce  a rarrmeter  ^oao 
CAU.  JETRIRO. 
cau.  ;nc#rtr<2>* 

ENC  ORENBRXLE. 


344  1 uRITERNARK  RROCECuRE  4VTE. 

343  2 RETURN  ROUv CURRENT wtlRQ.  1>, 

344  2 END  uRITfSHRRK. 


347  1 SETtURITEftMRRK  RROCEC'URt. 

344  2 CURREnT#R*wRO«<URRBNT«RLR2  OR  SON, 

54#  2 INC-  $ST*wR!Tt«MRRK. 


344  i WRITE  RAECORC*  »ROCEDOftC, 

3#1  2 IR  NOT  JWR. CURRENT #RLRO.  i » THEN  CAU.  RRT AwRERROR * UI  >■ 

3#3  2 CALL  SET  ROMA. 

3#4  2 CURRENT  iRLAG*CUAAErjT#RuA«i  ANC-  ORN. 

3#3  2 IR  v CTR  -OlJkRWRITE>  -4  THEN  RETURN. 

3#7  2 INVRLU-TRUE. 

3 #4  2 ENC  wRITERRCCORO. 


3*#  1 RERORRECCRD  RROCILs^RC 

440  2 CRU.  SCTRCs'W*. 

<01  2 IR  UR I TERN RRK  THEN  CRU.  mR I TEf RECORD. 

402  2 IR  vCTR  -O  ISKfRERC-  «0  THEN  RETURN. 

403  2 IR  CTR«t  THEN  IN&RORRRECORC-TRUI, 

407  2 ELJE  INVALID- TRUE. 

404  2 END  RER&4RSC0RC.- 


•0#  1 
<10  2 
<11  2 
<12  2 
<12  2 
<13  3 

41<  3 

<17  2 

<14  2 


<1#  1 HRITf#4VTE  RROCC&URE  • ChA*  • . 

<20  2 DECLARE  CHAR  »sTf. 

<21  2 IR  '4URRRRTR  •«UR,*«R T«-i  • '•  tuRRRENC  Th«N 

<22  2 00. 

42C  2 CRU.  URI^RRECORC- 


RER0R4VTE  RROCft-URt  tvTE. 

IR  ^4URR*RTR  •iURRRRTR  • \t  >•  4URREN0  THEN 

do. 

CALL  RCAORRECORD 

IR  CNuRORIRECORC-  ’hEN  RETURN  TERMINATOR. 

»URR IRTR -4URR *STRR T . 

end 

RETURN  §oRR*4VTE 
ENC  RERORBVTE. 
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EORF  M T*  •« y^fF  « JT  ART . 


z 

223  2 END- 

%22  2 CALL  SCT«URJTE*f\AAL, 

227  2 §URF*§VTE«CMAR 

<:•  * end  hritcrovtc. 


229  1 ■*lTK«Ct£'*r*M's  FROCIDLRC. 

ca  2 CALL  -RlTB*OVTIsCR--. 

Eli.  2 CALL  EtnilVTIV  > 

222  2 Efft*  UR  I TC*BND*flAAK. 


#73  1 *EAD«Er£  »mAAk  **OCIDoAE. 

224  2 IF  «CAC  4»vriOC*  Tutu  CAU.  •«  INTlERRGRv  EM 

222  2 IF  »CA0*2> Tf OLF  THEN  CAcl  F A l NT *CRROR v EM  >. 

230  2 END  *EAD#END«MAftk. 


229  1 

24#  2 

241  2 

242  2 

243  3 

244  3 

243  4 

242  4 

247  4 

242  2 

249  3 

230  4 

231  4 

232  4 

232  3 

234  2 

233  2 


FEAD*vARIA0lI  FROCE&URE. 

CALL  SIT*  1*0. 

OA*E«CRAOOAvi>. 

DO  4*CT**0  TO  C2AC*0Av2  ••!• 

IF  vCTA  •<**§VTf  ^A*CTR  > -*EAD*iVTE.  • • V*R«CND  THEN 

DO. 

CTR-RfADRivTE. 

AfTUAN. 

Oft*. 

IF  CTR- TERMINATOR  THEN 

DO. 

CN0#0P  *RCC0RD«TRUC. 

RETURN. 

END- 

040. 

CALL  «.IAO*tND*MARK. 

END  READ*VARIAOl£. 


\ 


<32  1 

237  2 

230  2 

239  2 

22#  2 
221  2 

222  3 

223  2 

224  3 

223  3 

222  2 
227  2 


.4#  I TE  *VAR I AOLE  FROCEOURC. 

DECLARE  COUNT  ADORE  3 5. 

CALL  set *1*0 
iA2E«C#A00R<l^ 

CQUNTmC*AbO*<2>' 

00  ~mIlI  * t-JOVTEvCOUNT  •COUNT-1 /O  ‘ * >AND  vCOUNTO©:. 
ENO. 

00  A#CTR«0  TO  COUNT. 

CALw  ^RITEi«vTEvi##VTBvA#CTR>>. 

ENC*. 

CALL  URITE*€N0*«ARL, 

END  uRITEfVARlAftLC. 


22S  1 

229  2 

270  2 

271  2 

272  3 

273  3 

274  4 

273  4 

272  4 

277  3 

270  2 

279  2 


READ  * T C #MEM0RV  FROCEDuRE. 

CAL*.  JET*J*0. 

SAS«-C*A00*  • 1>. 

00  i*CT»«0  TO  C*A0CA*.2.*-1. 

IF  :0*«vTEvA*CTR,  •REAC-*#VTE  ••TERMINATOR  THEN 

00. 

Crft>«0R*RECCR0«rR0C. 

return. 

END. 

INC*. 

CALL  RCAO*CNO#mARk., 

ETC-  READFT02MCMORV 


200  1 

2#1  2 
2E2  2 

203  2 

204  3 

203  3 

202  2 
207  2 


HRITE*RROM*MCMO*V  FAuCCtjRE. 

call  set* I *0- 
2ASE«C#AOC*Rvl-*. 

CO  AJCTR-0  TO  C#A&ORi2  ■ -l. 

CALL  URITER*VTEvO*OVTEvA#CTR  - >. 

ENC*. 

CALL  UR!TI#CNO#MARkj 
ENC*  HRITE2FR0J*s*MEN0RV 


RANDOM  1-0  FROCEOuREJ 


2 AO  1 SET  *RANCO.'UFO  INTER  »R0C*C>uRE, 

THU  FROCECURE  FIAC-S  the  RANDOM  lev  AND  CONFUTES 
HMICM  RECORD  NECDl  TO  EC  AVAIlAEL*  If*  THE  OUFFER 
THAT  RECORD  IS  MACE  AVAtuAOwE  AND  The  *0 INTERS 
JET  FOR  INRUT  OR  OuTFUT 

209  2 DECLARE  v O'*  TCFCOUNT  RECORD  ADORES 3- 


L 
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•m  2 

*91  2 

*92  2 

*92  2 

<M  2 

*99  2 

*94  2 

*94  2 

*99  2 

'94  2 

791  2 

792  4 

T04  4 

799  4 

79*  2 

797  2 

709  2 

709  2 

710  2 


71*  2 

717  2 

719  2 

719  2 

720  4 

721  4 

722  4 

722  2 

72 4 3 
729  2 

72*  2 

727  2 

729  2 

729  2 

no  z 

721  2 

722  2 


722  1 

H4  2 

729  2 

72*  Z 
727  2 


729  1 

n9  2 

740  2 

741  2 


742  1 

744  2 

*45  2 

74 7 2 
749  2 

749  2 

790  2 

791  Z 

792  2 

792  4 

794  4 

799  4 

79*  2 

797  Z 
792  2 

799  2 


IaTKNT  •VTE, 

CALL  MTAlAO 

•VTl#COJNr«vv#AOC-«vi  ••C0N*t»T#r04HCXv  CAAC*OA<3/.  CMV  Tt\,0>>. 
R«C0*O-SHA<t>TtAC0UNT.  7 
CXTfHT-fHAKAICwAO.  7,. 

19  txnNT<:rcMOvTt#*vCXTfr4T#oArftT>  thin 

oa 

19  wriTKfMMX  TM(N  CALL  WAITfAAtCOAO. 

CALL  CLOMvCAAOC'A.  O'  •. 

ACfiOvTtJAvC.>TtNT#C#A*fT,«t>TtNT. 

I A OA«N»C<AC<AvO/  .<00  Tm*M 
DOi 

19  JHA^CURACNTAALAO.  1 * TmCH  CAl*.  MALI*  C»*Xt0*<0  > >. 
■LSI  iNVALlO-TAuf, 

«MD. 

CNO. 

9OAA*AT»«v.§vTt#C0UMT  ANC-  7RM»  • tOARASTART 
IA  ACIHVTIWv  AfC4f40  >0  vCTA  •UjLvACCOAO  'AND  TRm  t TmCN 
00. 

ACKtVTKAv  22  >*CTR. 

CALL  ACA&MKCOAO. 

CNO. 

■NO  SIT  AA ANOOHARQ  I MTf  R« 


OfT A ACC ANOMIC A AAOCCOOAC. 

OCCLAAf  vACCNUfl.  K>  AOOACSS. 

v I » cm  > *VTt. 

J v 4 > AOOACSS  CAT  A . iOOOO.  1040.  1«M.  iO  > . 

9UAA  < 5 9VTI. 

AfC<NOM«SHL  v ACMOVTt  AAv  IXTJhT  *OAAffT  < . 7 <•  •ACOAOvTCAAv  At  CANO  • 
DO  1*9  TO  1< 

CNT«*< 

C<0  WHILI  AfC<NOM**«vL  «Jv  I >4. 

AICANUrt-AICANOM  - K; 

CNT-CWT  * 1> 

CNOi 

9oAA  < | 4 «CMT  * 0 

CNO. 

•OAA  v4j  “ACC  AN4JM*  0 

:a  < i -cjivTivi)  >c«s  thcn 

CALL  MOVCv  *jAA**-t.  CAA00A<3>.  I>, 

CL  SC  00. 

CALL  A I LL  *.  CAAOOA  v,  0 > . 1-5*  ft 

CALL  MOVCv  1UAA. CAAOOAv 3 >♦!-<.  5>. 

tNOi 

■NO  OCTAAICANUMtfR. 


UAlTfAZIAOAACCORO  AROCCCURC. 
00  A#CTA-i  TO  CAAOOA \2  > , 
CALL  uA:TK«tVTK^O>. 

CNO. 

■NO  UftITKAZKROAACCOftO. 


WAtTlAAANOOM  RAOCCOUAC. 

CALL  MTAAANOOMAAOINTCA. 
CALL  UAITfAAROMAUCNOAV. 
CALL  tNCAATAvf.. 

CNO  UftITlAAANOOM. 


•ACKAONCAACCGAO  RAOCCOUAC. 

CALL  SCTflAG. 

IA  v OUAA SATA  -9UAAAATA-.  CAA00Av2/*2^:<«0OAA«fTAAT  TH*N  RfTUAfl. 
•UAA ARTR«OUAR *INO“ >9UAA AfTAAT  - iUAAfATA  . 

IA  vAC»«0VTf#AvAtC<»40>  •ACMOVTfAAvACCANO^-i --255  TN*N 

00. 

ACCMVTiAAvfVTINTAOAAMT  ••AC9A9VTI AAvlXTCNTAORAftT  >-i. 

IA  OAtNvCAACOAvO  K>  0 TMCN 

00. 

CALL  AAlMTiCAAOAv  09ft 
tNVALIO»TAOC, 

CNO. 

ACKtVTf  AAv  ACCA440  • *127. 

■NO. 

CALL  AfAOAACCOAt*. 

■NO  •ACkAONCARCCOAO. 


INCAHOLO  AAOCCOOAC. 
MOLC^HOLO  • i. 


1 


••4  1 

*€3  S 

*44  a 

•4?  2 

m a 


crt«crt  • i- 

ft*  t»«C#NOCC>. 

L0AC41NC  FAOCtU*«« 

CALL  1 lie  •MOLD’ 

INC  L0AO41NC 

CHfCKtCriT  AAOCtl**«'CMA«'. 

OttLAM  CMAA  »VTt  INC4N0L0 

if  jinn  o » on  vCmah*  *****  vall 

ILM  14  CNAA*  • ***** 

OOt 

H4tVTtv«)« 

CALL  IMC4M0Lt>. 

two* 

tLft  t4  CMAA«  A n«N 

°*  „ „0T  l(TTMv(..VT..('>  TM.N  CALL  AAINTWAAOA,  1C 

CALL  LOAM  INC. 

(NO, 

ILM  IA  CMA»«  * TN.N 

W!‘  ,r  NOT  NUMIAIC  v9MVT(\.  > ) THIN  CALL  AAtNTMlWOAv  to, 
call  C0AC»1NC, 

«no, 

(Lf*  CALL  1.0AM  INC. 

(HO  C MICK *(0  IT, 


NACMINI  ACTION* 


-•a  i 

r*i  r 

T««  i 

r*s  a 


1TOA  aaociol*. 

CALL  MINT.  , II*  * I0H  >>' 
CAUL  (OOTIA, 

(NO  *T0A, 


*OS  9 
MI  9 
MS  9 
•M  9 

M?  9 


TNI  MOCIOOAI  MUON  ^T«OU.  TKJ  MCimON  OA  TM  COO. 
|T  OCCOCXf  f ACM  OA-COO*  ANO  •tAFOAMl  TN*  ACTION* 


(St CUTS  AAOCtOO**- 

DO  rOAfNI* 

00  CAt*  0«t40A4C00t^ 


•!  ACC  •' 


* aa  ivj#  • 


/•  41  NUL 


CAfC  I1AO  NOT  OttO  •' 


I^tlONOvt'  T *****  ilONO\4'«T«OtT\Vt 
tLft  ltON#vt>«AOttTtV« 

CALL  AOO. 


«M  9 
tit  9 
•11  8 
•U  8 
•U  9 
•14  9 

•19  « 

U4  < 

•ir  4 

tit  9 


OtCLAAt  f tvrtv 
CALL  ftT if*UL T #0 1 S 1 

0«CATl,OiC4Tt*OtC4Tl  ♦ OtCAT#, 

CALL  ALL  I ON  I 

CALL  MULttAV.V'tM«u*li  I ••  * • 4'  > a 

M '^r^Ttkv,.!,!  MN„ 

CALL  NULM9LW*H*v*i'! '■«>  ’> 

(NO- 


CALL  civic.. 
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BSV'  ; ' . 


T'Tllri.v 


1 22  4 


•53  4 

M4  3 
•53  3 

154  9 

•r  5 

151  3 


lit  4 

•30  3 

•31  S 

•35  4 

•33  4 

•34  4 

•IS  4 
134  S 

ir  s 


•31  4 

•39  S 

•4#  S 

m;  s 

•43  S 

•44  S 


MS  4 
•44  S 
MO  S 
M9  S 


MANCH«FL*G-'«OT  MANCmMLAO. 

/•  04  STA  •/ 

CALL  fT09. 

/•  09  fT  I 

CALL  STOAIMMHC&IATC. 


• 00  mo  */ 

00. 

CALL  fTOAC#  I MSWATI, 

CALL  riLLv  *5-10.0). 

*•<•)•!. 

CALL  400. 

tND. 

✓ • 09  ACT 

00. 

t*  co40oavo>oo  THtN 

OOi 

AOCTMCOAOOAvO). 

C#A004<0>*0. 

A*00*AM*C0ONTf*»A*CTA, 

no. 

CL SC  CALL  |NC*9TC<a>. 

no. 

10  CLS  •< 

oo» 

i?*U*lTllflAAK  THCM  CALL  UAITIOAICOAO. 

CALL  CLOSCvC#AOOAvO>>. 

CALL  INC4ATAv5>. 

no. 

/•  11  SCA  •/ 

°°‘  \w  OVCAALOW  TVitN  AAOOAAlifCOLIHTC*  • C*A00Av0>i 
(LSI  CALL  INCCATAv5>. 

no. 

/•  12  OAN  •/ 

AAOOAAH*COUHTtA«CAAOOA  v 0 > . 


13  OAN  •/ 

CALL  OACNMtLCvl). 


•55 


14  0A1  •/ 

call  0ACN«ATLCv2/t 


•S3 


IS  0A2 

CALL  0AIN*AILI<3>« 


'•  14  AOT 


•S4  4 

•ss  s 

•54  3 

•ST  S 

•SO  S 


IA  NOT  SXONOvl'  THIN 

•AANCN#ALAO«NOT  1AANCH4ALAO. 
CALL  CONOAOAANCHvO^. 

cro. 


/•  17  ALT  •/ 


•59  4 

MO  S 

Ml  S 
M5  3 
MI  9 


M4  4 

f4S  S 
•44  S 
MT  S 

•40  3 


10  ACO  •/ 


IA  StONOv 2>  THIN 

•A**:hAALAO-NGT  1AANCH«AlA0. 
call  CONCMAAMCHvO/- 


l A *2421*0  Thin 

1AANCH#ALAi3«NOT  1AANCH«AlAi3. 

call  CONOMAANCHvO* 
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M9  4 

•M  4 

•n  4 

•72  4 


If  I MV  •/ 

CALL  INCAaOAAEAANCMv  INVALID** 

24  «0H  •/ 

CALL  IMCAAOAAEAANCHvENOAOAAAECGAD*. 

••  21  ACC  •/ 

call  ACC EAT* 

12  OIS  •/ 

CALL  OISALAV* 


'•  22  ST©  •✓ 


•72  4 

»T4  3 

•T9  3 

•74  3 


DO* 

CALL  DtSALAVi 
CALL  STOA. 

END* 


✓•24  l£*I  •✓ 


•r?  4 

in  3 

•n  3 

IM  3 


DO* 

C#AD0Av2>«C0MVt«T#T0JME>CvCAAfrDA*0^  CJ#vTf  si> 
CALL  IMCJATAvl,* 

END. 


/•  23  DEC  •/ 


Ml  4 

tt2  3 

M4  3 
IM  3 

—7  3 


DO. 

IW  CAA00Av0>O4  THEM  C.4AOC* v 0 .••CAADC-A*  0 *-l* 

I A CAAOC*  v A >*4  THEM  AAOOAAMACOUNTCA*CAAOOAv  1 >* 
ELSE  CALL  !NCAATAv4>* 

END. 


ME  4 

M9  3 
IM  3 
191  3 


•92  4 

•93  3 

•94  3 

•93  3 


2<  rro  •/ 

DOi 

CALL  STOAEWAJHEAIC. 

CALL  INCAATA<4>* 

END* 

/•  27  STl  •✓ 

DO. 

CALL  STOAEJNunCKIC. 

CALL  SfT»XONE<CAAC'OAv4>*CMVTEs2>-l>. 

END. 


/•  2A  ST2  •/ 


•94  4 

•97  3 

IM  3 
•99  3 


DO* 

CALL  STOACANOMEfttC. 

CALL  SET«20NI^C#A00Av<»>  >. 

END. 

/•  29  ST2  •/ 


9M  4 
Ml  3 
M2  3 
M3  3 
M4  3 
M3  3 


00* 

CALL  CHSCKfDEClAAL* 

•ASE-CAAOOAv©.-  ♦ CA#vTfv2>  - 1 
C Hj*  STOAEAAf  ACHAA  v CA9VTE  v 2 ' - 1* 

CALL  JETAfrONASCAvCAAOOAvJ#  • CMVTCWO  -1/* 

END* 


/•  39  ST4 


DO* 

CALL  CHCCLAOECIMAL. 

9ASE*CAADC*A v 0 > ♦ CMVTE<2>* 

CALL  STOAEAASACHAAvCMvTEv  2>-l>* 
CALL  9ETA9 IONASEAvCAADDA^O>>* 

CMC** 


/•  21  ST3  •/ 


912  4 

912  3 

914  3 

913  9 

914  9 

917  3 


DO* 

CALL  CHECK AOCC! HAL. 

A9v9>«A2v9>  OA  SI0M*v2> 

CALL  MOVEv  A2  • A • CA#VTEsl  f . CAADOAvO*  . CMVTEvE  ‘ 
CALL  INCAAT9\4>* 

End, 


• 22  LOO  •' 


353s  uihhhu  333325  2222m  1212221222225  22222235232252 


Tjr,J  Tar  '5“  « JTJ’ 


CALL  LOAOAMUrULXT' 


/•  25  L01  •/ 


M 


CALL  LOAOMUnCAXC. 


24  L 02 


occlaai  i tyre. 

tiQt  f ,-— 1*  gfftfift  1 ft  > I 

IF  CHCCK#rOA#*IONvCT«  •HS9VTW<1  -C*9VT«v2>-l> > TN«N 
00* 

CALL  Srr«LOADvAOSIT!VC>« 

X«I«Li 

CNO* 

(LSI  OQ* 

CALL  set 4L0A0vNC0X rive >1 
call  loao*mchaa<ct*-2on«>, 

CNOi 

CALL  LOAO«f«jnMAS<CJAOOAvO>.  I>. 


29  L02 


H0L0*C*A00A<9>< 

IF  CXCCKAF0ft«SX0NvH«0VTSv9> * TH*M 
00  i 

CALL  *lT«LOAOvAO*XTXVf>. 

CALL  L0A04NUhMASvC4A00Av0>  C«9VT«v2>/. 

KNOi 

(LSI  DO- 

call  sct«loaovncqxtxvc>. 

CALL  LOAO«MUM9CASvC4AOOAvO>*1.  CJtvTCv2^-l>< 
CALL  L0A0«A4CHAA<H4«VT|s0>-20N(>. 

«N0i 


34  Lf>4  v 


HOLO-CAAOOAvO)* 

IF  M#9vTCs.C*9VTf  <2>  - i>  • ♦'  THCN 

CALL  SCT#LOAO<1>* 
tLJt  call  srr«L0AOvd>i 

CALL  L0A04NUn99A*vC#A00A<9>-CJ9VTts2>  -1>* 


/•  2T  LOS  — 


NflLD«CKIBOO\  a > > 

IFCH4%VTIv d->H  THCN  CALL  STTFLOAOvi  « . 

cljs  call  srr«coAOvo.>< 

CALL  LOAO«NUnMAS^CAAOOAv«>.C40VT|v2>-L.>> 


/-  29  LD4  my 


WHO* 


OCCLAAC  I BVTVi 
HOLO*C  MOOA  v 0 > t 

CALL  *rr«L0A0vM«9VTlvI  •CJtVTtv 2 >. 
OAMtASI  • 9 - U 
00  CTA  • 9 TO  l* 

M9VTI  v CTA  > •H99VT1  <CTA.»» 

fNO, 

•••VT1kCTA>«9A#VT1vCTA>  ANO  OFOMj 
CALL  XNCJATftv9>. 


/•  29  F«9  •/ 


9*9 


WHO* 


#A*t-C4A0C*d 
94*00*  <.  0 • «C4A00*  < 2 > * 
FAOOAfettCOUNTtAvCAAOC*  v 0 > 


/•  49  C HU  my 


CALL  C0nF4NUrt«ONjX0NCt> 


/m  41  cm  •. 


CALL  CONAfNUNJSItiN* 


CAU.  COMRJALANA. 


>»  41  tws  •/ 


HI  3 
N2  3 
Ml  3 
M4  3 


CALw  *ACk#ONt4**CO*D4 

CALL  UAITHRR©M#H«MOAV* 
CALL  iMCOATAv*., 

v*>* 


/»  44  OLS  •/ 


MS  4 

)M  3 
MT  3 
>M  3 
M9  3 


CALL  »ACK*ONC»*CCO*D« 

CALL  UAITIfltAOMtCOAD* 
CALL  !HC0AT*v4>* 

INOi 


/*  43  ROA  •/ 


M 1 3 

Ml  3 
Ml  3 


M4  4 

M3  3 
994  3 

MT  3 


CALL  A«A04T04A*h0AV, 
CALL  IMCJATAvOi 


CALL  U»XTI#AAON*HtHOAV* 
CALL  INC0AT*v4>. 


• 4?  *VL 


CALL  *CAD«VAAIA*Lt' 


/•  4#  UVL  -/• 


call  M»rrrc#vAAiAALXi 


49  sc*  •/ 


10**  4 

10*1  3 


1992  3 

IMS  3 


SU*SC*  I at  < CMVTI  < 2 > > • 

C0NV1A T « T0*««X v CJA00* v 0 > C MVT1 < 1 > > • 
CALL  XNC*AT*<4>i 


/•  3*  SOT  •/* 


CALL  ST*INO*COAAA*tvl>i 


31  SLT  •/ 


CALL  ST*  t NQOC0MAAAS  v.  0 > * 


>•  31  SCO  •/ 


CALL  ST*INO*COHAA**vl>» 


10*7  4 

1*M  3 

1*09  3 

1*11  3 

1*11  3 


1*11  4 

1*14  3 

1*13  3 

1*14  3 

1*17  3 


101*  4 

1*19  3 

1*10  ? 
1041  3 


31  AOV  •/ 


34  **S 


>-33  ~ 


CALL  H0V1v*«S<C*A00*v1.'>.*CSmUA00*v*»>  C*A00*vl>  >. 
I*  C*A00*vl>O*  TMCN  call 

*ILLv*«SvC*ACO*v1>>  • C*A0C**vl>.CJA0tAvl).  * >> 

CALL  |NC**T1|v*>4 


call  *CAO«ro*ncAO*v* 
CALL  0CT4*CC4NUAM*> 
CALL  INCJ*T*s». 


CALk.  U*XTt#R*0H#««N0»V. 
call  o*T»»«C*iun*«A* 

CALL  INCOAT* v*>. 


,•»  3 


k023  4 

L024  9 

LOSS  9 
L024  9 

L02r  9 


C hjl  SCTfOONDOruFOlNTCO* 

coll  *too#TooNCMoov. 

C OLL  IMC0FT0<9>* 

CNO* 


/•  57  UO« 


.Ml 


COU.  U0ITC40OND0M* 


90  ON*  «✓' 


>029 


COU.  UOITCFOON&ON* 

/•  99  OcO  •/ 


1030  4 

>031  9 

.032  9 

>033  9 

.034  S 


L03C  4 
1034  9 

>037  3 

1030  3 

L039  3 

L040  3 

L041  < 

L042  4 

L043  3 

1044  3 

L04S  3 


00* 

COLL  SCTOOONOOnOFOXNTfO* 

COLL  UOITttZKKOMCCOOO. 

COLL  lUCJ0T9<f>i 

CNO* 

/-*  <0  MOO 

004 

COLL  N0VCvC4O000<3>.COO00*v3>.  CO000ftt4>>. 

oosc«c#oooo<i>. 

MOLD*COOOOOvO>* 

CTO«Oi 

00  WMILC  <CTIKC»OOOOvl^>ONO«.CT*<CJOOC»Ov4>>. 

c*j.  chock4Cd:tvh^vt«vO>>. 

CNO* 

10  CTO  < COW0Ov4>  TV*N 

COLL  OlLLvNOLO.  CJOU4lk4>-CTO.  >* 

SNOi  • 

41  ON* 


1044 


/•  rOJLL  CAM 


1047  4 

1040  3 

1049  3 

1090  9 

1031  3 

1032  < 

1093  4 

1094  4 

1039  S 
1054  9 

1037  4 

1090  3 

1099  2 


/•  02  000  •/ 

OOi 

OCCLOOC  OFFMT  OVTOi 

OFFMT«CONVtOTfTO#NCXvCOOOWKl.>.  CftOVTfv !>-*> . 

to  offmt  > cmvtkd  ♦ i tmcn 

00* 

COLL  F0INT#C*000<  Ofc'-** 

CHJL  IMCJOTOvSML^COOVTf vO>.  1>  ♦ 4>* 

CNO* 

o«ooooHocouNTco*coooooLorosrr  • 2>< 

CNO* 

CNC*.  /•  CNO  OF  COM  STOTCOCNT  •/ 

CIO*  /-  CNO  OF  tO  FOOtVtR  •/ 

CNO  CXSCUTC* 

/«*•••«•••••  7000000  CXt  CUT  I ON  STOOT*  Mt*C  • • • 


1040  1 9OM*C00C«fT9ftT. 

1041  1 F00G00N«C0UNTC0«04O00Ov0>, 

1042  1 COLL  CXtCUTC. 

1043  1 CNO* 


M00UL1  INFOONOTION 

cooc  onto  sire  • iooom  tosoo 

VOOIOOLC  oft CA  SI2C  • 00C1H  1930 

MAXIMUM  STOCK  *111  • 0014M  220 

1942  LlNCS  *COC 
0 MtOOftOn  COOOOvf > 

CNO  OF  FL»  M— 00  COMF1 LOT  I ON 


I 


ISIS- 1 1 FL/t»~*0  >2  1 COLLATION  OF  HOOULC  #AAT2 
04JICT  vOOULl  RLACCO  IN  *1  *MTi  04J 

cowtwix  rwv oxco  iv  au*44  fi  ^r;  rlm 


• aaoclcnothv34> 

RMT2  MOOULf  NAAC  •/ 

oo. 

/•  C040L  COAAILIA  - 


MODULI  LOAD  ROINT 

OLOOAL  OCCUPATIONS  ANO  lITIAALS  -< 


OCCLMC  LIT  LITWALLV  'UlTIMUVi 

OCCLMC 


NASM3TA44A00A 

lit 

•2344H'.  ACO 

THC  rm 

RASSlfLCN 

LIT 

•42'. 

maxjacmoav 

lit 

2244M-. 

RASSUTOA 

LIT 

2104H  . 

CA 

LIT 

u. 

LF 

LIT 

14'. 

QUOTY 

LIT 

22H' . 

ROUC 

LIT 

22H'. 

TAUC 

LIT 

'1'. 

FAL3C 

LIT 

4 • 

FOACVCA 

LIT 

UHILI  TAUC’. 

IF3FLA0 

•VTC 

IMITIALvFALSO. 

THC  rm L£S  non  rmti 


CO  CL  ARC  MANANO  Ll?CAALLV  42  . '•  MAX  *CAO  COUNT  •/ 

MAXLNO  LlTfAALLV  103  ■/•  MAX  LOOK  COUNT  •/ 

HAXANO  LITIAALLV  120  . /•  MAX  RUSH  COUNT  •/ 

nAXSNO  LlTfAALLV  2l4  . /•  MAX  STAT1  COUNT 

STMTS  LlTfAALLV  1 STMT  STATf 

OCCLAAf  *CAD1v«j  tVTC 

OATAvO.  <1.  3.  %.  3.  14.  IS.  22.  24.  2S.  11.  12.  41.  42.  44.  43  43.  S3 
. 34.  3*.  SO.  4*.  24.  44.  23.  2%.  23.  IS.  IT.  44.  34.  11.  13.  4S.  14.  12.  24.  23.  IS-  17 
. 44.  2.  1.  44.  21.  44.  37.  1.  34.  2.  14.  42.  27.  13.  21.  34.  32.  S4.  14.  4.  14.  24.  33 

. 44 

. SI.  S3.  1.  IS.  7. 12.  14.  31.  3.  3.  14.  IS.  24.  22.  24.  22.  21.  41.  42.  44.  43.  43.  32. 
34 

. 34.  S4.  31.  7.  17.  1.  1.  3.  3.  14.  IS.  24.  21.  22.  24.  2S.  31.  41.  42.  44.  43.  4f . 32 

. 34 

. 34.  S4.  44.  S2.  4.  44.  23.  4.  • >, 

OCCLAAC  LOOXlv  4VTC 

C>ATA<4.  44.  4.  44.  4.  2.  4.  44.  4.  1.  13.  4.  44.  4.  34.  43.  4.  2.  4.  27.  4.  7 
# . 17.  4.  1.  13.  4.  33.  4.  33.  4.  33.  4.  S3.  4.  1.  13.  4.  12.  4.  1.  4.  31.  4.  44.  4.  23.  4.  4. 


OCCLAAC  AAALVlv*'  4VTC 

0ATA<4.  4.  22.  4.  S.  4.  4.  77.  4.  4.  41.  4.  11.  SS.  S4.  74.  73-  0.  4.  1.  41 

. 4 

. r 41.  4.  23.  4.  4.  4.  4.  37.  34.  33.  4.  4.  4.  4.  4.  4.  4.  S3.  4.  4.  4.  4.  4.  4.  3.  7.  4.  12. 

14 

. 44.  4.  4.  2.  3.  S.  7.  4.  12.  12.  14. 14.  21.  22.  24.  22.  27.  24.  23.  23.  24.  44.  44.  73. 

7S 

77.  44.  4.  3 24.  27.  24.  43.  32.  34.  4.  3.  7.  4.  12.  14.  24.  44.  4.  32.  4.  20.  4.  4.  13. 

22 

22.  S3.  4.  4.  0.2.  41.4.4*. 

OCCLAAC  ACA02v«>  §VT1 

0ATA\4.  41.  2.  214.  3.  14.  42.  13.  17.  It.  24.  22.  24.  27.  24.  23.  30.  32 
. 22.  34.  27.  24.  21.  241.  43.  #4.  241.  243.  247.  242.  43.  174.  134.  132.  133.  143 

172 

• 214.  243.  247.  242.  243.  242.  123.  22.  131.  137.  42.  2.  23.  4.  143.  144.  21.  127 

. 124 

. 142.  121.  122.  14.  3.  141.  241.  23.  43.  23. 123.  2.  IX.  7.  124.  174.  144.  2.  3.  14 
.43 

. 13.  17.  14.  24.  22.  27.  24.  23.  24.  22.  23.  34.  37.  34.  144.  4.  12.  124.  111.  2.  3.  10 
■ 42. 13. 14.  17.  14.  24.  23.  27.  24.  23.  34.  22.  22.  34.  27.  24.  134.  44. 121.  134. 13 

.4 

. 4>. 

OCCLMC  LOOK2s«>  4VTK 

OATAvO.  12.  142.  22.  147.  142-  133.  22.  144.  142.  142.  124.  44.  103 

. 43 

. 43. 114.  42.  134.  47-  111.  112.  43.  112.  32.  114.  114.  34.  32.  113.  37.  112.  32 

. 117 

33.  114.  113.  113.  22.  24.  120.  147.  27.  23.  123.  73.  122.  74.  124.  124.  124.  4l>. 
OCCLAAC  AAALV2V  §VTC 

C*ATA<4.  4.  127.  24.  72.  102.  77.  127  122.  143.  72.  72.  131.  ISO-  132 
. 177.  143. 122.  122.  144.  104.  122.  142-  102  133.  142.  74.  ISO-  44.  23.  133.  132 
. 132.  134.  144.  24.  124.  21.  34.  142.  22.  i“V  *3  133-  33.  142.  40.  32.  144.  37  *# 
. 33.  173.  123.  130.  42.  30.  47  M.  34.  213-  30-  30.  2l7  173  124.  44.  124.  43.  34 
. 137.  31.  154.  142.  34.  123.  i2S-  42.  143.  42-  32-  30.  31.  32.  201  202.  32.  211 
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U 1 


. i»S.  1»S.  l»s.  i»3.  l»s.  1*3.  *1.  7».  1*3.  1U.  l'i.  *i-  »*•  112-  U5.  IM 

■ 143 

. 141-  131.  131.  147.  31>. 

CCClJWf  I NC'CXl ^ * 3VT( 

D3mv3.  1.  113.  2.  12.  113.  113.  113.  113.  12.  23.  72.  113.  113.  113. 

**  IX,  31.  u.3.  23.  23.  113.  44.  US.  113.  23.  113.  113.  US.  US.  12.  42.  23.  US 
. US 

42.  44.  22.  22.  43.  US.  47.  43.  S3.  113.  31.  33.  33.  34.  22.  S3.  33.  22.  31.  32.  <3. 

M 

44.  Ml  Ml  4?.  Ml  M.  u.  70.  24.  72.  71,  73.  91.  92,  f J.  94.  93.  «•  113.  113.  117 
. 119.  73.  H3.  3.  3*.  1.  3.  3.  7.  9.  12.  14.  17.  19.  21.  23.  23.  23.  33.  32.  14.  3*.  39. 
41 

. 43,  43.  47.  49.  213.  123.  123.  17«.  147.  lM.  204.  204.  103.  170.  170.  170.  170 

. 214 

. 143.  l#  2,  2.  4,  4.  4.  4.  7.  ?.  9.  9. 10. 10. 10.  12.  12.  12. 12.  12. 12.  12.  12. 

12 

. 12.  12.  12.  10.  10.  10.  10.  19.  19.  19.  19.  22.  22.  22.  23.  27.  27.  27.  20.  20 

. 29.  20.  30.  34.  34.  33.  33.  34.  34.  37.  37.  30.  30.  39.  39.  29.  40.  42.  43.  43 

. 43.  43.  44.  44.  44.  47.  47.  34.  53.  00.  00.  00.  00.  94.  94.  90.  90.  90.  100.  1 

. 101.  101.  104.  104.  107.  107.  100.  UlJ* 

DECLAAC  IM0CX2v->  OVTC 

DATAvO-  1.  1,  20.  1.  1.  1.  1.  2.  1.  10.  1.  1.  1.  3.  1.  3.  1.  1.  *.  1.  1*  1. 

1 . 3.  i,  1. 1,  1.  2. 1.  3. 1.  1. 1.  1.  2.  2.  2-  1. 1.  2.  1.  1.  2 1.  1.  3.  2. 1-  1*  2. 1.  3. 1. 1.  1 

1 . 1. 1. 1,  l»  3. 1.  3. 10.  2.  10. 1. 1. 1.  U 1.  19.  1.  2.  2. 1.  10.  1.  20.  3.  2.  2.  2.  2.  3.  2. 

5 . 2.  2.  2,  2.  3.  2.  2.  2.  2.  3.  2.  2.  2.  2.  2.  2.  12.  22.  34.  44.  43.  47.  49.  52.  34.  34.  37. 

30 

. 39.  43.  44.  3.  i,  0*  1#  0.  1.  2.  2- 1*  2.  0.  0.  2. 1.  0.  2.  1.  0,  2.  1. 1.  2*  2.  2.  J.  0.  1. 

. 2.  4,  2.  3.  4,  4.  3. 1-  1-  2.  2.  0.  0.  1.  0.  0.  0.  0.  0.  0.  0.  0.  0.  0.  0.  0.  0.  0.  1.  1,  0.  1,  1 

. 0 
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/-  IMD  04  TACLCS  •/ 

DCCLAAE 

/•  JOINT  OCCUPATIONS  •/ 

Sm  T>«  40LL0UIMQ  I TINS  MIC  OCCLAACD  TOGCTHCA  IN  THIS 
QAOU r IN  OAOCA  TO  FACILITATE  TMCIA  OCINO  PASSED  PAOM 
THC  9I0ST  MPT  04  TmC  COMPILE* 


OUTPUT *4Ct 
DCOUOOlNO 
PAINT  *MIOO 
Ml  I NT* TOKEN 

lxst*input 

SCQONUM 

MCXT9SVH 

POXNTfA 


<33>  OVTI. 
OVTC, 

•VTt. 

OVTC, 

•VT1. 

OVTC. 
AOOACSS. 
AOOACSS.  / 


901  NTS  TO  TV*  NCXT  » VT1  TO  OC  OEAO  •/ 


ncxtmvailacli  aooacss. 

MAX*INT#HCM  AOOACSS. 


/•  I 0 OUAFEAS  AND  GLOOAlS  •/ 

IMAAOCA  AOOACSS  INITIAL  <3CH>. 

IN9UTFC0  ONSET  I NATO*  «.33>  OVTE. 

OUTPUT **U44  \120>  OVTC. 

OUTPUT *P TO  AOOACSS. 

OUTPUT#CNO  AOOACSS. 

OUTPUT *CHAA  CASED  OUTPUT*PTA  OVTC. 

MESSAGES  7 OA  OUTPUT 

OCCUPC 

CftAOA*NCAA*«  OVTI  DATA  v CAAOA  NCAA  **>. 

CN0#04*MPT*2<*>  OvTt  DATA  v END  04  COMPILATION  * * >* 

/•  OLOOAL  COUNTtOJ  •/ 

DCCLAOE 

CTO  OVTE. 

AOCTO  ADOOCSS. 

OASE  ADCAES S 

OOOVTC  OASCC-  OAfC  OVTE. 

MAOOA  EASED  OASE  ADDUCES. 

M0N1  900CCDUAC  v 4 . A .»  CXTCAnAl. 

DCCLAOK  4 OVTC.  A ADC* ESS. 

KK>  MONl- 

H0H2  POOCEDOAt  ' 4 • A > OVTI  EXTEONAc. 

DCCLAOE  4 OVTE.  A ADDOCSS. 

EI4»  M0N2. 


i 


m * 

its  P 


22  1 toor  FKOCfOvAf  CXTSANAl- 

22  2 CNO  WOT. 

24  i F*|nTCNAA  HOCCU^I  vCHA*'. 

29  2 CCCLAAf  CHAU  0VTt. 

24  2 CALl  "ONI  *.  2«  CMAA ) • 

2T  2 CNO  FAINTCNAA. 

:«  i calf  hocidom. 

29  2 CALL  FAINTCHAAvCA), 

20  2 CALL  AAInTCHAAvLF)* 

21  2 CO  CALF. 

22  1 FAINT  FAOCCDOAt  (A). 

32  2 OCCLAAC  A AOOACSS, 

34  2 CALL  "ONI  A>) 

29  2 CNO  FAINT, 

1 FAlNTlfAAOA  •FOCCOUAC  (C00C>. 

2 DKCLAAK  COOt  AOOACSS, 

2 CALL  CALF. 

2 CALL  FAINTCHAAvHIOHvCOO«>>. 

2 CALL  FAINTCNAAvLOUvCOOC>>. 

2 CNO  FAINTitAAOAi 

42  1 F*TAL«CAAOA  FAOCCOUAC  v At ASON  > » 

43  2 OCCLAAC  MASON  AOOMSS. 

44  2 CALL  FAXNTifAAOAvA«A*ON>i 

49  2 call  T!MCvl»>i 

44  2 CALL  SOOT. 

47  2 CNO  FATAL JCAAOA, 

CLOSC  FAOCCOUAf. 

IF  M0N2<14.  0UTFuT*FC4>-293  THIN  CALL  FATALFCAAOAv  CL ’ >• 

CNO  CLOSC, 

"OAC* INFUT  AAOCOOAC  4VTC, 

/•  AC  AOS  THf  XNFUT  FILI  ANO  At  TUANS  TAUC  XF  A ACCOAO 
NAS  AtAO  FALSI  IHFLXCS  CNO  OF  FXLC 
OCCLAAC  OCNT  tVT£, 

XF  vOCNT  HQN2v20.  XNFUT«AC»^>1  TM*N  CALL  FATALFCAAOAv  '4A ' ). 
AtTUAN  NOT  < OCNT  > * 

CNO  "OAf A XNFUT, 


4»  2 

91  2 

92  1 


92  2 

94  2 

94  2 

97  2 


24 

37 

34 

3t 

44 

41 


54  1 UAtTftOUTFUT  A*OCCDUAt  (LOCATION)* 

/•  MAI TCS  OUT  A 124  4VTC  SUFF (A  *A0"  LOCATION*/ 

94  2 OCCLAAC  LOCATION  A00AC5S. 

44  2 CALL  "ONI  < 24,  LOCAT  X ON  > * /•  ST  WA  v 

41  2 IF  M0N2(21,  0UTFUT«FC4>O#  THCN  CALL  FATALSCAAOA \ ' MA " > j 

43  2 CALL  M0N1v24,  44n>.  ✓•ACSCT  DHA 

44  2 CNO  MAITCJOUTFUT* 

49  1 AOVC  FAOCIOUAf ( SOUACC,  DESTINATION.  COUNT). 

/*  MOVfS  FOA  THt  NUN4CA  OF  4VTCS  SFCCXFICO  4V  COUNT  •/ 

44  2 OCCLAAB  SOuACC,  DCST I NATION)  ADOMSS. 

vSFAvTf  4ASCC  SOUACC,  0*4vT«  4ASC0  DCST  I NAT  I ON.  COUNT)  4VTC, 
47  2 00  WHlLf  (COUNT  -COUNT  - 1)  O 299. 

44  2 0F4VTt-S44VTf, 

44  2 SOUACC-SOUACC  *1, 

74  2 oesr r nat r on  • ocstination  ♦ 2* 

71  3 CNO, 

72  2 CNO  HOVC, 

73  1 FtU.  FAOCCDOAt  (AOOA.  CMAA.  COUNT), 

/•  nOVtS  CHAA  INTO  AOOA  FOA  COUNT  tVTtS 

74  2 OCCLAAC  AOOA  AOOAKSS. 

(CHAA.  COUNT. OCST  4ASCD  AOOA)  4VTt, 

79  2 00  mlLt  v COUNT  -COUNT  -1)0295, 

74  3 OCST-CHAA, 


77 

3 

AOOA— AOOA 

- L 

74 

3 

CNO. 

74 

2 

OC  FILL, 

• • - 

- • 

scannc*  lits  - - 

• * */ 

M 

1 

OCCLAAI 

litcaal 

lit 

24'. 

iMFOTIfTA 

lit 

44*. 

•CAIOC, 

lit 

'i*. 

AFAAIN 

LIT 

3 * • 

LFAAIN 

LIT 

‘2  • 

INVALID 

lit 

0 . 

f:EE#E  SEES?  EccEj  tsitir,  H * marssitmsmse 


0.  0.  3.  T.  13.  CS.  4U  <44.  34.  M <3>. 

TAtLC  v)  tVTC  DATAv  tv  00  . 'IF  TO  COF  AC-0  CND  1-0 

NOT  . HON  CALL  KUSC  . tXIT  *A0 « INTO  LtSS  NOVC 

■ N*XT*.  OF*N\  FAOf  ICAO  . SIXt  fTOF  THFu  . ICAO 

AF^l*  . CLOSt  CNTf*'.  COUAL  CRFOft'  INFUT  OUOTC  • SFACC 
Tints  . UNTIL'.  USlNO  MtlTl  . ACCtFT  . tCFOKC  DCLTHI 

• DSVtOC*.  OUTFUT-  DlSFLAv  . OACATCF 

invalio  ■ Nunttic  FctFotn"  acwfitc*  founocd  scction 

• DIVISION  . NULTIFLV  . StNT*NC*  SUtTtACT  . 40VANCINQ  . 
DCFCNOtNO  MOCItotC  . ALFHAtTMC  >. 

OFFStT  vll>  ACOACSS  INITIAL 

/•  'AJHM*  OF  tVTtS  TO  INDCH  INTO  THC  '**_£  *0A  CACH  lCNQTh 
vO.  t.  0.  t.  24.  *4.  144. 1F4.  231.  244.  2S1>. 

W0FD4C0UNT  <•>  tVTt  DATA 

^ NUnttJt  OF  HOADS  OF  tACN  Slit 
<%.  4.  4.  4.  It.  11.  3.  t.  4.  3.  !>’ 


NAMAI04CCN 

HAKFLtN 

AODFtNO 

LOOKSO 

hold 

•UFFttFCND 

NtXT 

INOUFF 

AC  CUN  vJl» 
OISFLAV  <?4> 
TOKtN 


LIT  12'. 

LIT  It'. 

v*>  tVTt  OATA  v COF  ' >. 
tVTt  INITIAL  vt>. 
tVTt. 

ACCAtSS  INITIAL  <10tH>. 

•AMD  FOINTfA  tVTt. 

LIT  mn  . 

tVTt  INITIALS  '>. 

tVTt. 

tVTt  INITIAL  vt>. 

tVTt.  ■'•AtTuANtD  FAON  SCAN4R 


/•  FAOCCCHJACS  UlCD  tv  THC  SCANnCA 


1 NtXT vCHAA  FAOCCDUAC  tVTt. 

2 IF  LOOLCO  THtN 

2 DO. 

3 LOOLCD«FALSt. 

3 AtTUAN  vCMAR  -HOL0>* 

3 tND* 

2 IF  vFOlNTtt  •AOlNTtt  ♦ 1>  >•  tuFft^NND  THtN 

2 DO* 

3 IF  NOT  NOAt»INFUT  THtN 

3 DO. 

4 tUFWtftFCNCW  MtNOAV. 

4 FOINTIA*  AOOACNO* 

4 CND. 

3 (LSI  FOINTtA-INtUFF, 

3 CND. 

2 AfTVJAN  vCHAA  -NCXT). 

2 CND  NCXTFCNAA. 

1 OtT  *CHAA  ••OCCDVJAt. 

/*•  THIS  FftOCCDUAC  U CALLCD  WNCN  A NCW  ChAA  IS  NCCDCD  WITHOUT 
TNC  DltCCT  ACT  VAN  OF  THC  CMAAACTtA*/ 

2 CHAA«NC\'T«ChAA. 

2 CND  orrtCNAF. 

1 . DtSFLAVFLtNC  •AOCtDuAC. 

2 IF  not  list# INFuT  THCN  ACTUAN. 

2 DISFLAVvDISFLAVvt>  * 1)  • •'» 

2 CALL  FAINT v Dl*FLAVvl>>, 

2 DI*FLAV<t>«ti 

2 CND  DISFLAVFLPA. 

1 LOADFOISFLAV  FAOCCDOAC. 

2 IF  DlfFLAVvt ><T2  THtN 

2 DlSFLAVvDlCFLAVvt>  -OlSFLAVv # >-i>«CHAA. 

2 CALL  OITKHAAi 

2 CND  uOADiOlSPLAV. 


1 FUT  FAOClDUFt. 

2 IF  ACCUNvO  < 3t  THtN 

2 ACCUNv  ACCUN  v t .•  •ACCVjMv  • >«CHAA, 

2 CALL  LOAOFOISFlAV 

2 CND  FUT. 

1 CAT  fL  INC  FAOCtt-UAti 

2 OO  WHILC  CNAFCCA. 

3 CALL  LOADFDISFLAV. 

3 CND 

2 CND  CATFLINC. 

124  1 aCTf»40itLANK  FtOCCDuFt 


145 


. -r . 


123 

2 

ccclaac  v»*.  r>  ovrti 

120 

2 

to  »ootvc*> 

1 27 

3 

IF  CHOU  • THCN  CALL  lOAOFOISFLAVi 

tLSC 

12* 

3 

IF  CHAA*CA  thin 

IM 

3 

DO. 

U1 

4 

call  disflavflino. 

132 

4 

IF  SCOFNUM  7HfW  *•#.  CIH  >*•!. 

139 

4 

DO  I • 1 TO  N, 

IK 

9 

CALL  LOAOFOISFLAV. 

137 

3 

It*. 

139 

4 

IF  CHAO  • • THCN  CALL  CATFLINC, 

1*9 

4 

ONO, 

cm 

141 

3 

IF  CHAO  • ' THON 

142 

3 

oa 

143 

4 

IF  NOT  DCOUOQINO  THCN  CALL  OAT*. INC, 

(LSI 

149 

4 

CALL  L0AO4OISALAV. 

14« 

4 

2ND. 

CLSC 

147 

3 

ACTUA Hj 

14# 

3 

ONO.  /•  OHO  OF  00  FOACVOO  •/ 

14* 

2 

END  OCTFNOFOLANIL 

ISO 

1 

SFACC  FAOCCOUAC  OVTO. 

1S1 

2 

AfTUAN  vCHAA*'  * > OA  vCMAA*CA>. 

192 

2 

ONO  SFACC. 

193 

1 

LOrTFFAAIN  FAOCODOAO  0VT1, 

194 

2 

ACTUAN  CHAA  - V i 

199 

2 

ONO  LOFT  FA  AA I N. 

ISO 

1 

AXGMTFFAAIN  FftOCCDUAC  OVTO, 

197 

2 

ACTUAN  CHAA  • > i 

ISO 

2 

ONO  A10HTFFAA1N, 

IS* 

1 

OOLlNITtA  FAOCODOAO  OVTO, 

/•  CHOCKS  FOA  A 7 OF  IOC1  FOLlGUCD  Ov  A SAACO  OA  CA*/ 

100 

2 

IF  CHAA  O THCN  ACTUAN  7 ALSO, 

102 

2 

HOLO-NCXTtCHAA, 

103 

2 

LOOKCD*TAuC. 

104 

2 

IF  SFACC  THCN 

109 

2 

DO, 

100 

3 

CHAA  • 

107 

3 

rctvjan  tauc. 

100 

3 

ONO, 

10* 

2 

CHAA*'  't 

170 

2 

ACTUAN  FALSO. 

171 

2 

ONO  DOHA I TO Aj 

172 

1 

DeFOFFTOKCN  AAOCCDOAt  OVTf, 

173 

2 

ACTUAN  SFACC  OA  DCLIHXTCA  OA  lCFTFFAAIN  OA  AIOHTFFAAIN, 

174 

2 

ONO  CNOFOFFTOKCN. 

175 

1 

OOTFLITCAAL  faoccdoac  ovtc. 

170 

2 

call  LOAOFOtSFLAVi 

177 

2 

DO  FQACVCA. 

17* 

3 

IF  CHAA  - QUOTO  THCN 

17* 

3 

DO. 

100 

4 

CALL  LOAOFOISFLAV. 

101 

AfTUAN  LITOAAL, 

102 

4 

ONO. 

103 

3 

CALL  FUT. 

104 

3 

ONO. 

109 

2 

ONO  OCTFLITCAAL, 

100 

1 

LOOKFOF  FAOCCOUAC  OVTt, 

107 

2 

OCCLAAC  FOINT  AOOACSS. 

HCAI  OASOD  FOINT  vl>  OVTO.  1 OVTf, 

100 

2 

NATCH  FAOCfDUAf  OVTO, 

10* 

3 

OCCLAAC  J OVTO, 

1*0 

3 

DO  J-l  TO  ACCOM  v 0 > i 

1*1 

4 

IF  »CMvj  - 1)  O ACCUMvJ'  THCN  ACTUAN  FALSC, 

1*3 

4 

CND> 

1*4 

3 

ACTUAN  TAUC, 

1*9 

3 

ONO  MATCH. 

1*0 

2 

FOlNT-OFFJCTvACCU'KO)  >*  TA*L*, 

1*7 

2 

DO  1*1  TO  MOAOFC OONTv ACCOM vO'», 

1*0 

3 

IF  MATCH  THCN  AOTOAN  t. 

200 

3 

FOINT  • FOINT  • ACCOMv 0> • 

201 

3 

It*. 

202 

2 

ACTUAN  FALSC. 

203 

2 

INC1  lOOKFUFj 

146 


Bn  nn  mww mzmnim 


• ' — ' 


>»  1 ftCSERVEOFwOAO  »tOCCHJ«f  tvTf, 

'•  ItCTUtMS  THI  TOKEN  rjunftC*  OF  A HSEKvR'  wOAD  IF  TH*  CONTENT*  OF 
TH*  ACCUHU.ATO*  IS  A ***C*V*D  ^0*0-  OTHCEUt SC  *CT\J*NS  2**0 
2 C4CLME  VALUE  »VTK, 

2 DtCLAEE  HUME  tVT*. 

2 IF  ACOjMvt)  <•  f^X*LlN  TM*M 

2 oa 

3 tF  vNUHt  • TOL-*NFTAEL*vACCUNv*>>  >OE  t>«n 

2 DO* 

4 IF  vVALU*  «COOKFOF>  O E THEN 

4 NUNE*N unt  * VALUE* 

4 ELSE  NUHE-E. 

4 END* 

3 CNO. 

2 *CTU*N  NUrW 

2 PC  **SC*v*DM0*0i 


1 QfTtTOfctN  FFOCCDUAt  EVT*. 

2 ACCUN<E>«E. 

2 call  oct*ng«elanl. 

2 IF  CHAA-QUOTE  TNEN  *TUJAN  OETFLJTEEAL. 

2 if  MLimm  then 

2 oo* 

2 call  fuT. 

2 ECTUftN  FCKIOOi 

3 INO. 

2 IF  lEFTFAAAIN  then 

2 c-o* 

3 CALL  FUT. 

3 *mj*M  LFAEIN* 

3 CNO. 

2 IF  *10HT#AAAIN  THEN 

2 OOi 

3 CALL  FUT* 

3 *rru*N  AFAAlN. 

3 *r«. 

2 OO  FOKtVC*. 

3 CALL  FUT, 

2 IF  CNDFOF* TOKEN  THEN  FCUMN  INFUTFST*. 

2 END*  /•  OF  00  FO**VC* 

2 cno  oetftoken* 


END  OF  SCANNE*  FOOT  INKS  •/ 

scANHtn  exec  *y 

1 SC*#<«  FFOCCDU**. 

2 IF v TOKEN  «OET i TOKEN'  • INFUTFET*  THEN 

2 IF  <CT*  •*«J**VE£>FfcJO*0>  O t THEN  TOKEN-CT** 

2 CNO  SCANNE*. 


1 FETHTFACCUH  WIOCEWFt 

2 ACCUHvACCUNv  ©>•!>•'§'* 

2 CAU.  F#rwT<  ACCUrivl)  >. 

2 CNO  •AINTFACOJH* 

1 feihtfnunee*  F*0CS0O*CvNUNE>. 

2 OECLAFEvNUNE.  t.  CNT.K)  fVTE,  J <•>  EvTf  OATAvlM.  !•>. 

2 DO  !••  TO  L 

2 CNT-E, 

3 00  WHILE  NUf*  >•  <K 

4 NUf^NUHE  - Li 

4 CNT*CNT  • i. 

4 PC 

3 CALL  FEINTChAEv • CNT>i 

3 CNO. 

2 CALL  FEINTCHAE<  • • NUHt>. 

2 CNO  FElNTFNUr***. 


.*•  • • • CNO  OF  fCANNE*  FEOCSCmjEES  • • • •✓ 


**•••••  SVHEOL  TAElC  OCClAAATIONS  • * • 
2*3  1 PCCLAEC 


CUAFfVH 

SVHEOL 

fWEOLFAOC* 

NENTFSVHFENTFv 

I4TVH 

OISFLACCMENT 


AOOAtSS  -•SYHEOL  MI  no  ACCESSED* 

EASEL  CUEFSVH  vl>  EVTf. 

EASEL  CUFFSVH  (1>  40CAC5S. 

EASED  NESTtfVH  ADOEESS. 

LIT  3FH-. 

LIT  2' 

LIT  12 


147 


FfTACKSIXt 

LIT 

20  • size 

OF 

FAASE  STACKS*, 

•'ALU® 

vFfTACKil 

Zf  > AOCAfSS.  • 

TfMF  VALUtf  •/ 

ITATfSTACK 

iFfTACMl 

X*'  •VTf.  • SAVED 

STATES  •/ 

vALUti 

vFfTACKSl 

X«>  AC^MSS. 

/• 

> ALUfi  STACK*, 

vAAC 

< 1.00  > •VTf. 

•TfNF  CHAM  ITOAf- 

I DA STACK 

v20> 

AOOfttSS. 

tOAFT# 

•VT«. 

N#AA#VTf 

•AMO 

MAKAlNTAMfM 

•VTf. 

iOMIMP 

•VT« 

INITIAL  vO> 

CONDATVFf 

•VT*. 

nOLDAMCTIQN 

AODAfSS- 

mOLD«MCAADOA 

ACCACSS. 

J*CT!0»4#FLAO 

•VT* 

INITIAL  v#>, 

laacoa 

ACOACSf. 

lalenqtn 

AOCAttS. 

L«TVFf 

•VT«. 

L •CSC 

•VTf. 

CONALCNOTM 

•VT®. 

CONFIL1NQ 

•VT«  | N 1 T 1 AL  v T AUf  > . 

SF 

•VTf  INITIAL  v2«>. 

MF 

•VTf. 

MFFl 

•VTf. 

NOLOOK 

•VTf  iNlUALvFALSf  >. 

vl.  J.  K> 

•VTf. 

MNOlClfS  FOA 

THf 

FAAStA*/ 

STATE 

•VTf  !NJT!AL%STAAT*>. 

/••••••••  COOI  LlTfAALS 


. • THf  COC'C  LITEAAlS  M|  SACK  <14  INTO  QAOUF*  DfFfNOINO 
ON  TNf  TOTAL  LtNOTN  of  coot  FAQOUCED  foa  that  action  *, 

LtNOTN  ONf  •/' 


AOO 

lit 

1 • 

AfOlJTfA  AOO 1 T I ON 

S*J# 

LIT 

X . /• 

AfQlSTfA  SO#  T A ACT  ION  *, 

«UL 

lit 

r.  /•* 

AtorsrtA  nultiflication  •, 

OIV 

lit 

4 . 

AfQlSTfA  OIVISION  •/ 

NfO 

LIT 

•S'.  /• 

NOT  OFfAATOA  *, 

STF 

lit 

4’.  •'* 

STOF  FAOQAAA  •/ 

ST  l 

LIT 

■?',  /• 

STOAt  AtOlfTIA  1 INTO  AfQlSTfA  4 *< 

/*  LtNOTN  TWO  •/ 

AND 

LIT 

AOUNO  CONTENTS  OF  AfQlSTfA  1 •/ 

/*  LtNOTN  THAft  *y 

AfT 

LIT 

9 . • 

AfTUAN  •/ 

0.1 

LIT 

'I#-*. 

✓ • CL Off  •/ 

MA 

LIT 

11  . 

/•  fIZf  iAAOA  *, 

•AN 

LIT 

ix- . 

/•  SAANCN  •/ 

OFN 

LIT 

13 

/♦  OFfN  FOA  INFOT 

OFX 

LIT 

14  . 

✓*  OFfN  FOA  OOTFUT  */ 

OFl 

LIT 

19 

V*  OFfN  FOA  1-0  •/ 

ACT 

lit 

It  • 

/*  AfQlSTfA  QAfATfA  TNAN 

ALT 

lit 

/A  AlQISTfA  LESS  TNAN  •/ 

AtQ 

LIT 

it  . 

.'*  AfQlSTfA  EQUAL  *•• 

INV 

LIT 

IS  • 

/*  INVALID  FlLf  ACTION  */ 

fOA 

lit 

xo  • 

/*  fND  OF  FlLt  AfACMfD  •/ 

• I 

»f NOTH  FOUA  *, 

ACC 

LIT 

XI 

'*  ACCIFT  •/ 

OIS 

LIT 

22 

/A  oisflav  •/ 

STO 

LIT 

22  ■ 

/'*  STOF  ANO  OISFLAV  */ 

LOI 

LIT 

24*. 

/•*  LOAD  COUNT® A IMfOlATE  •/ 

LtNOTN  FIVf 

CffC 

LIT 

XS  . 

S+  OtCAfNtNT  ANO  •AA^TN  IF  XfAO  •/ 

STO 

lit 

24  . 

/%  STOAf  NUMtAIC  */ 

ST1 

lit 

2T  . 

STOAt  SlQNtO  NUMtAIC  TAAILINO  •/* 

STX 

LIT 

M ■ 

/%  STOAt  SIONfD  NUMtAIC  LtAOINO  •' 

ST* 

lit 

29 

/%  STOAf  StFAAATf  SIQN  Lf AO  I NO  *' 

fT  4 

lit 

'10  . 

•*  STOAf  StFAAATf  SIQN  TAAILINO  *• 

rrs 

lit 

11 

/*  STOAf  CONFUTATIONAL  *< 

/•  1 

LtNOTN  SIS  •/ 

LOO 

LIT 

12  ■ 

* LOAD  NUMtAIC  L I Tf AAL  *' 

uoi 

LIT 

12 

/*  LOAD  NUMtAIC  *• 

LOI 

LIT 

34 

/*  LOAD  SIONtD  NUMtAIC  TAAILINO  •/ 

LOX 

LIT 

19 

* LOAD  SIONtD  NUMtAIC  lIAOINQ  */ 

LC*4 

lit 

14 

* LOAD  StFAAATf  SIQN  TAAIlINQ  *.' 

LOS 

lit 

ir-. 

* LOAD  SfFAAATt  SIQN  L I ADI NO  •' 

L04 

LIT 

it*. 

/•  load  comfutational  • 

'* 

LtNOTN  StVfN  •/ 

FfA 

lit 

IS 

* FfAFOAM  •/ 

CND 

lit 

40  . 

* C0MFAA1  FOA  UNSIQNtD  >A.»MiAIC  • 

CNS 

lit 

41 

• COMFAAf  FOA  StQNtD  NUTflAIC  *• 

cal 

LIT 

42 

• COMFAAf  FOA  AcFHMMTIC  — 

AMS 

LIT 

43*. 

RCHAITC  SCOUCNTIAL 

OLS 

LIT 

44  *, 

OCLCTC  SCOUCNTIAL  •/ 

RDR 

LIT 

45  . 

RCAD  SCOUCNTIAL 

MTR 

LIT 

44  . 

/• 

WAIT*  SCOUCNTIAL 

RVL 

LIT 

4?'. 

/• 

RCAD  VAAIA4LC  LCNQTH 

HVL 

LIT 

44*. 

/• 

HAITI  VAAIA4LC  LCNQTH 

LCNQTH  NINC  •/ 
SCA  LIT  44*. 

*OT  Lit  54*.  /• 

«LT  LIT  'SI'. 

SCO  LIT  '91*.  '• 

"OV  LIT  S3  • .*• 


/•  SUASCRIRT  COMMUTATION  « 
/•  STRING  GACATfR  THAN 
STRING  LCSS  THAN  •/ 

/•  STRING  COUAL  «✓' 

/*♦  novc  •/ 


lINOTH  it 

RRS  LIT  54'.  /' 

HRS  LIT  '55*. 

RRR  LIT  '54*.  /' 

WAR  LIT  *5?*.  ✓ 

RNA  LIT  '54*.  /■ 

OLA  LIT  '35  . /’ 


/•  Rf AD  RCLATIVC  SCOUtNTIAL 
HAITI  RCLATIVC  SCOUCNTIAL 
/•  ACAD  RCLATIVC  RANDOM 
/•  HAITI  RCLATIVC  RANDOM 
/*•  RCHRITt  RCLATIVC  •/ 

/•  OCLCTC  RCLATIVC  •/ 


311  1 

:u  a 

313  2 


/•  lcnqth  clcvcn 

MCD  LIT  44*  • /•  NO VC  CDITIO 

LCNQTH  THIRTCCN 

MNC  LIT  41*.  /•  NOVI  NUMCAIC  SDITID 

/•  VAAIA4LC  LCNQTH 

ODM  LIT  42  /*  GO  DCRCNOINQ  ON 

/*•  4UILD  DIRCCTINQ  ONLV  •/ 

I NT  LIT  43  . INITIAL  121  STORAOC 

4ST  LIT  44'.  /«*  RACK  STURR  ADDRCSS  •/ 

TIA  LIT  45*.  /•  TCRMINATI  SUILO  •<- 

SCO  LIT  '44*.  /*  SIT  COOI  START  •/ 

/•  • • • RARSCR  ROUTINCS  • • • • 

DIGIT  RROCCDUAC  vCHAA)  4VTI. 

OCCLAAC  CHAR  tVTI. 

RCTUAN  v CHAA< • ' 5 * ) AND  vCHAA>-*4' >* 

CND  DIGIT. 

LCTTtR  RROCCDUAC  4VTI. 

RCTUAN  <CHAR>»*A'>  AND  sCHAA<»'2*>* 

CND  LCTTtR. 


314  1 INVALIDRTVRC  RROCCDUAC. 

315  2 CALL  RAlNTSCRAOAv  IT'>i 

314  2 END  INVALIDRTVRC. 

11?  1 4VTIJ0UT  RAOCCDOACvONC#4VTI^ 

314  2 OCCLAAC  0NCR4VTC  4VTC* 

315  2 IR  vOUTRUTtATR  •OUTRUTRRTR  • 1>  > OUTRUTRCND  THCM 

324  2 DO* 

321  3 CALL  HAITtfOUTRUTv  OUTRUTRAURR>. 

322  3 OUTRUTfRTR-  OUTRUT A4URR  * 

323  3 CND* 

324  2 OUTRUT RCHAA-0NC44VTC* 

325  2 CND  4VTCR0UT, 

324  1 ADDAROUT  RROCCDUAC  <AOOA>* 

32?  2 OCCLAAC  ADDA  AOOAISf. 

324  2 CALL  4VTCR0UTvL0WvA0DA>>i 

325  2 CALL  4V  Tt  ROUT  v HIGH  vAOOA>>* 

334  2 CND  ADDAROUT. 

331  1 INC4C0UNT  RROCCDUAC < CNT )* 

332  2 OCCLAAC  CNT  4VTC. 

333  2 IR<NCXTRAVAILA4LC  -NCXTRAVAILAALC  ♦ CNT) 

>MAKR  t NT  RMCM  THCN  CALL  RATALR«*AOA<  MO  >» 

335  2 CNO  INCACOUNT. 


334  1 ONCRAOOARORR  RAOCCDuACvCODC  ADDA'. 

33?  2 OCCLAAC  COOC  AVTC.  ADDA  AODACSS. 

334  2 CALL  4VTCROUT  v COOC ) . 

135  2 CALL  AOOAROUTvAOOA). 

344  2 CALL  I NCRCOUNT  v 3 > * 

341  2 CND  ONCRADOARORRi 

342  1 NOTRIMRLIMCNTCO  RROCCDUAC. 

343  2 CALL  RRINTACRAOA  < NJ*>< 

344  2 IND  NOTRIMRLIMCNTCO* 


I 


545  1 


344  2 

j*?  2 

34f  2 

131  2 

331  3 

132  1 

332  2 

334  2 

333  3 

334  3 

337  4 

333  4 

339  4 

343  4 

341  3 

342  3 

343  4 

344  4 

343  4 

344  3 

347  4 

343  4 

349  4 

373  3 

171  3 

372  4 

374  4 

375  3 

374  4 

377  3 

373  3 

379  2 


MATCH  FAOCCDUAC  *00*15$, 

••  CNfCkf  AN  10CNT IFICA  TO  ICC  17  TT  If  IN  fWC  SVM30L 
TA3LC  IF  IT  IS  FftCSINT  CUAFfVN  IS  SCT  *03  ACCCSS. 

OTNCAMlSC  TMC  FOINTCAS  >V«f  ffT  FOA  CNTRV-s 

DCCLAAC  *01  NT  AC-OACSS.  COLLISION  9* SCO  *0 1 N T AOOACSS.  v«OLO.  I * M, 
IF  TNCN  VAAC<3>-«AX«IDFLCN* 

HOLD-3. 

DO  I-l  TO  VAACv3>i 

WOLO-HOLO*VAAC  v l > » 

KNDi~ 

F0INT-HASHSTA99A00A  ♦ SNLwMOLO  ANO  MASHFHASK  ' . 1 ) i 
DO  FOFtVtF, 

IF  COLLISION-*  TV«N 

DOi 

CUA4SVN.  COLL l S ION— NCXT iSVNj 
CALL  3UXLD«SVN90LvVAACv3>>, 

SVN30L < FfLCNOTH > -VA3C v 3 ) 4 
DO  I-l  TO  VAAC<3>* 

SVM30LvSTAATiNAMf-M >«VAAC< I >. 

CND/ 

CALL  SCTiTVFl v UNACSOLVCD  > * /•  UNACSOLVtO  LA3CL  •' 

AC  TUAN  CUAFSVNj 

CND. 

CL  SC 

DO, 

CUA4SVM—C0LL I S I ONi 

tF  v WOLD  •OCTtF*LKNQTM>«VAftCvO>  TWIN 

DO. 

«•!> 

DO  WHILC  SVM30L v ST  AAT tNAMC  ♦ I >•  VAAC<!>» 

IF  <1  ■ I ♦! > >HOLD  THIN  ACTUANv CUAfSvn  -COLLISION v 
cnOj 

CTCXi 

CNDi 

FO l NT —COLL  SSI ONi 

CNOi 

CND  MATCHi 


333  1 StTAVALUC  FAOCtDUAf V NUNC > . 

331  2 DCCLAAC  NUN3  AOOACSS. 

332  2 VALUC<NF>-NUM3» 

332  2 CND  SCTSVALUC/ 

334  1 SCTFVALUC2  FAOCCDUAC <AOOA>* 

333  2 DCCLAAC  AODA  AOOACSS. 

334  2 VALUC2<MF>.A00Ai 

337  2 CND  SCT»VALUC2j 


233  1 SU39CNT  FAOCCDUAC  3VnU 

339  2 IF  CSU3FIN0  -SU341ND  ♦ i>>3  TWCN 

393  2 SU391ND— 1. 

391  2 ACTUAN  SU3FIN0. 

392  2 CND  SU39CNT. 


391  1 C0DC#3VTf  FAOCCDUAC  vC0DC>» 

394  2 DCCLAAC  COOC  9VTC. 

393  2 CALL  3VTC#OUTvCOOC', 

394  2 CALL  I NCFCOUNT  < 1 ) . 

397  2 CND  CODCFCVTCi 


393  1 CODCFADDACSS  FAOCCDUAC  vCOOC). 

399  2 DCCLAAC  COOC  AOOACSS 

4«3  2 CALL  AOOA»OUTvCOOC>» 

431  2 CALL  !NC*C0UNT<2), 

432  2 CND*  COOC •AOOACSS. 


<33  1 !NAUT#NUriCA!C  FAOCCDUAC  3VTC. 

434  2 DO  CTA-1  TO  VAACtO)) 

433  3 IF  NOT  DIOITvVAACvCTA»>  THCN  AfTUAN  FALSC.* 

437  3 CND* 

433  2 FI TUAN  TAut, 

439  2 CND  IMAUTFNUNCAIC* 


I 


41*  1 4ACLSTUA*  A*OCEDUAE  lADD1*A002>. 

424  2 OECLAAE  V.AD01.  ADOS'  ACOAESS. 

421  2 CALL  §VTt  AOL'T  v.  1ST  > t 

422  2 CALL  AOOA*OUT<AOOi>* 

425  2 CALL  AOOA«OUT<AO02>* 

424  2 CND  4ACKASTUAA* 


423  1 UNAESOLVCDAAHANCN  A*OCIDUA«> 

424  2 CALL  StT#VALU€VNtXT#AVAlLAaLl  * 1>* 

427  2 CALL  ONE#AOOA«OAAv4AN.  C>* 

424  2 CALL  Srr«vALUC2<r«tXT*AVAlLAALf>i 

42*  2 tNO  UNAES0LVE044AANCH, 


434  1 BACK4C0N0  AHOCCOUAC. 

4J1  2 CALL  4ACKSTUA7  v VALUC v SA— 1 ) , NEXT AAVA ! LA4LC > * 

4 32  2 tNO  4ACKAC0N0. 


433  1 *CT*4AANCH  AAOCCDOAf, 

434  2 CALL  JCT  *VALUt '.NtXT*AvAIcA®Lt>  • 

433  2 CALL  C00«»AD0AES*v4>. 

434  2 tNO  SCT*4AANCHi 


437  1 KCCA4VALJIS  AAOCtOUAf, 

434  2 CALL  3CTfvALUtvVALUtv*A'>4 

43*  2 CALL  5*TfvALUC2^VALUt2vSA' >. 

44#  2 CND  KttPtvALoCS. 


441  1 rrO#ATT*t*UTtS  AAOCtOUAtvTVAl). 

442  2 OECLAAE  TV At  4VYC, 

443  2 CALL  COOEAAOOACf  SvGEY§AC44A0C*A  > • 

444  2 CALL  CQOli*C%*tSS<GCT»AC>0*tSS>» 

443  2 CALL  COOt •AOOACfSv «1EY •LtNOTWx 

444  2 XA  ^VAf-A  THIN  AfTUAN* 

444  2 CUft«SV*1«SVMA0LSA0D»<ftCLt!0>i 

44*  2 CALL  COOCfACOftCSSvOrrtAOOACSS)* 

454  2 CALL  C00t#4VTIv0tT*LtN0TH)i 

431  2 CND  STDAAYT* I 4UTE3. 


>32 

1 

KCA04W* I Tt  AAOCtDUAt  < X NOCX  > i 

433 

2 

OCCLAAC  INDEX  4VTti 

434 

2 

X A lCTA  -OCTiTVAt)«l  THEN 

433 

2 

00* 

434 

2 

CALl.  uUOt*avTt<AOAwlNO€X>» 

437. 

3 

CALL  5T0»ATTtl4UTtSv4). 

434 

3 

tNO. 

43* 

2 

CLSC 

XA  CTA-2  THEN 

444 

2 

00. 

441 

3 

CALL  CODE A4VTC  < AAS*  X NOEX  > * 

442 

3 

CALL  *T0AATTAI4UTESvl.'. 

443 

2 

CND- 

444 

2 

CLSC 

XA  CT4-3  THEN 

443 

2 

00. 

444 

: 

CALL  COOEAtVTlv AAA*! NO«X >. 

447 

3 

CALL  rrOAATTAttOTESvl' 

444 

3 

end* 

44* 

2 

CLSC 

XA  CtA«4  THEN 

474 

2 

00> 

471 

3 

CALL  COCEAEvTlvAVL* INDEX'. 

472 

3 

CALL  fTDAATTA I4UTttv4>. 

473 

; 

CND* 

474 

2 

twit 

CAU.  aaint»caaoa<  'AT  >. 

473 

* 

CNO  ACADAMAtTti 

4?4  1 AHrTH«fTIC4TVAt  AAOCfDUA*  4vT«. 

47"  2 XA  wLIT^I  •ANOAOUTfOCCuAIvw*Tv*E > O-NUMEAXCALlTCAAL  ' 

ANO  L»7VAt<«COMA  ThEN  AfTUAN  wATVA ( - NUHEAJC  Awl  T*AAL. 
47*  2 CAww  tl«*ALl04*VAt- 

442  2 AfTUA».  2. 

441  2 CND  :irtC47vAf 


442  1 C-€L4AlT  •ACCltv»t»wMM 

4i : 2 'iw  ».’*! 

•i.  i :»  C7*  •oirr  *c  •;  tn*n 

44*  2 DC* 

4 «4  3 XA  *wM  “-CN  :ODt44»"I  4«A  •• 

-i!  3 twit  ::;i»4vTt 


152 


A 

•0 

■t 

; 

COU.  S”!*  ATTRIBUTES:*/. 

* 

•?C 

“ 

RETURN, 

•31 

z 

END. 

2 

IF  CT*«i,  AND  NOT  FLAG  then  C*—  vOOE#OVTI<DLS>. 

-s 

2 

tuib  IF  • 07004*  AND  FLAO  THEN  CALL  CODE*BVTE<Rw,s  • • 

4K 

i 

£i.S£  Cnwt  ;f,vALlD#TV*i 

4*7 

2 

CA w-  SrD,»ATTRI60T£S*.i3/i 

1 

£?i0  OCL-rftUT, 

1 

ATTRIBUTES  PROCEDURE, 

TOv 

2 

CALL  CCDEfAOORESS vl*ADDR>. 

TO! 

2 

CALL  COD£*BVTE<L#LENGTH  • • 

3«4 

2 

CAU.  CuO£*BVTC'.L#D£C>, 

"C- 

2 

END  ATTRIBUTES, 

5W 

2 

lGAO*l*ID.  r»ocedure<sfrt*>. 

505 

2 

DECLARE  SFRTR  8VTE. 

!M 

2 

IF  .A*CTR  • -ALU* < S*R TR > > > nONJNU.1ERICJLI?>  OR 
v ACTA  - NUMERIC*.  I TERAL.-  then 

507 

2 

DO* 

500 

z 

L*A0DR*VALU£2  < SFT *j. 

MJ 

2 

L*L£NGTH*CGN#LENQTHj 

510 

2 

u*TVFE*A#CTR, 

511 

2 

RETURN; 

512 

z 

END. 

515 

2 

2F  A*CTR<-LJT*ZE*0  THEN 

514 

2 

DO* 

515 

2 

L4TVFE.  L*ADD*-A*C7Jt; 

514 

2 

LFLENGTH-1, 

517 

2 

RETURN, 

513 

2 

END, 

513 

2 

CUa#SVM»VALU*< s *RTR>  ; 

520 

2 

L*TVRE«GET*TYRE. 

521 

2 

Llu©«TH-GrrJL£r4GTHj 

522 

2 

L*D£C  “GET  #C*EC  I MAL. 

522 

2 

IFvLFADDR  -VALUC2<S*RTR>,«0  THEN  L*ADOR»OET*AOOAESS. 

• 

525 

2 

END  LOAD*L*ID; 

520 

1 

LOAORREG.  RPQC£DURE*;REG*NO.  RTR>; 

527 

2 

DECLARE  vREGFNO.  FTR>  BYTE, 

520 

2 

CALL  LOAO*L*ID«.'ATR>; 

523 

2 

CALL  CODE#OVTE<LOD*ARITH«ETIC»TVRE>. 

520 

2 

CALL  ATTRIBUTES. 

551 

«* 

4k 

CALL  CGOC*eYTC<RCGFNO>; 

552 

2 

END  LOAOFRE& 

555 

1 

STORE **EG : PROCEDURE < RTR > j 

554 

2 

DECLARE  FT*  BYTE, 

555 

2 

CALL  L0A0«L*ID<RTR>; 

554 

2 

CALL  COO€«VTE<STO  * AR I THMET I C*TVRE  -1>; 

557 

2 

CALL  ATTRIBUTES, 

550 

2 

END  STORE* REG; 

553 

1 

ST0FE*C0N3TANT  PROCEDURE  ADDRESS; 

540 

2 

IFvMAX*INT^MEN:%riAX*INT#M£P1  - VARCCB.* ><NCXTB AVAILABLE 
THEN  CALL  RATAL*€RROR< 'MO  * >; 

542 

2 

CALL  BVTJ*OUT  i XNT); 

543 

2 

CALL  AODR*OUTCMAX*rNT*MEM); 

544 

2 

CALL  AOOR*OUT<CON*LENGTH:«VARCv9>>; 

545 

2 

DO  CTR  - 1 TO  CONFLENGTH, 

544 

2 

CALL  0 VTEFOUT  C V ARC  v CTR  > f ; 

547 

2 

END; 

540 

2 

RETURN  MAX* I NT *HEH> 

543 

2 

£r*o  STORE*CONSTANT, 

550 

1 

NUMERIC*.  IT  PROCEDURE  BYTE; 

551 

2 

DECLARE  CHAR  BYTE; 

552 

2 

DO  CT*«1  TO  VARC<0>i 

555 

2 

IR  NOT k DIQITvCHAR  «VARC>.CTR>) 

OR  <CHAR«'--  > OR  •.CHAR«'*'> 

OR  <CMAR*'  *'*»  THEN  RETURN  FALSE, 

555 

3 

END. 

• 

S34 

2 

return  true. 

557 

2 

VC  NUMERIC*.  2 7; 

553 

1 

ROUND #STORE  PROCEDURE- 

553 

2 

IR  VALUE  C SR  >C*0  THEN 

# 

540 

A 

DO; 

541 

2 

CALw  CODE*BVT£  v Rf«D  / . 

: cal*.  :oc-«***Ti..L*c-tc 

943  : CNO. 

544  2 CAww  iTCACFACOvIF-l' 

543  2 tr iC  ao»nojstoac. 


944 
54 7 
Ml 
54* 

st© 

371 

572 

373 

574 

373 

57* 

377 

37S 


<oo«su4  faoccouac  vXnocx>* 
CCCwAAf  rNOCX  4VTC* 

CALL  l0A0*AC0<4.  MFF1>, 

IF  v/ALUlvSF-3;04  THIN 
00* 

CALL  L0A0#AC0<1.  SF-3>, 
CALL  COOC#*VTf»  AOO*. 
CALL  C00C#4VTCvfTI>. 

CNO. 

CALL  LOAC'fRCQ^l.  5A-X>* 

CALL  COCt*#VTtCAW>  * XNDC\.w 
CALL  A0UN04STGAC. 

CNO  AOOiSUA. 


37* 

540 

341 

342 

342 

544 

343 


HULTfCIV  FAOCCDUAC'- XNOCX>. 
OCCLAAC  INOCX  AVTC, 

CALL  L0A0«ACGv4.NFFt>, 

CALL  LOAOMCOvl.  SF-*>. 

CALL  C00C*4VTCvMUL  % XNOCA>. 
CALL  *OUNO«STOAC. 

INC'  MULT  10 IV. 


944 

347 

344 

34* 

3*0 

3*1 

3*2 

3*2 

3*4 

3*3 

3*4 

3*7 

394 

3** 

404 

401 


CMCCK#SU4SC*IFT  FAGCCOUAC, 

CUA4  i >T*«  VALU*  < NF  ^ 

IF  GCT»TVF1<MULT40CCU*S  thcn 
OO. 

call  FAlNT#CAAOA<  X»'>* 
rktuan* 

. CNO. 

IF  XNFUTiNUMCAIC  TMCN 
00* 

CALL  SCT*VALUC2<arr*A00At$S  * ^OTT#LCHOTH  • 
ftKTmm* 

CNO  * 

CUA*SVW«MATCH* 

XF  vvCT*  *JCT«TVFCKMUnC*IC>  04  vCT*>COflF>  TMCN 
CALL  FAINT*CFAOA<  ,*T«'>* 

CALL  ONC#AOOA#OFF<SCA,  GCT#AOOACSS>* 

CALL  C00C44VTtvSU44CNT>i 
CALL  COOC  F4VTC  < OCT 4LCNQTM ) * 

CALL  SCT*VALUC2<SU4«IN0>* 

CNO  CHCCK4SU4SC4  X FT t 


CONVCAT«INTCGC* ' >, 


444 

447 

404 

40* 

414 

411 

412 

412 
414 

413 

414 


LOAOA.A441  FAOCCDUAC, 

CUA#fVN»V ALUff < MF  > > 

IF  vAACTA  -OCTFAOOACSOO*  TMCN 

CALL  4ACK#STUFF  v.  AtCTft,  VALUC2vMF>  t, 

CALL  SCTfA00ACSSvVALUC2vPr  •>. 

CALL  SCT*TVFC<LA4CL#TVFC', 

XF  <A#CTA  "OCT SFC4AA00A  > 04  TMCN 

CALL  4ACK*STUFFv  A*CT*.  nCXTaAVAILA4lC> 
f VM40L FA004 v FC4FA00A > «NCXT »AVA X LA4LC. 

CALL  ONC#AOOA#OFF<CCT.  4>» 

CNO  LOA04LA4CL. 


417 

414 

41* 

<20 

421 

422 

422 
424 

423 


L0AG«fCCJLA4CL  *AOCCDUAC. 
a*ctf«valuc<mf>1 
ZMJL.  SCT  • vALUC  \ HOLD  *SCC  T I ON  > . 
MOLO«f  CCT  X ON«**CTA, 
A«cm»VALVJC2vMF», 

CALL  SCT f VALUC2  < M0L04SCC 1A0C*A  > . 
MOLOFSCC4AOOF  • A«CT*. 

CALL  L0A0ALA4CL. 

CNO  LOAOMCCJLAtCL. 


424  1 LACCLFAOCFFOFFfCT  FAOCCDUAC  vAOOA,  NOLO.  OFAJCT;  AOORCJS. 

427  2 OCCLAAC  AOOF  AOOACSS. 

424  2 OCCLAAC  -.MOLD.  OFF«T  CTO  4VT1. 

42*  2 CuAUVn^OCA, 

424  2 XFsCTA  •0CT«TVFC>«LA4CLJTVFt  TmCN 

421  2 00. 

432  3 IF  MOLD  TMCN  AfTVJAN  GCT4AOOAC5S. 

434  3 ACTUAN  OCT#FC4*AOOA, 

423  3 CNO. 

434  2 XF  CTAOUNACSOLVCO  TMCN  CALL  IMVAL XDATvFt. 

424  2 XF  MOLO  TMCN 


154 


C«  2 DO* 

<44  3 A*CT*-0*T*A0C*tSS. 

<41  2 CALL  SCT*AC.C*CSSa4CXT«AVAlLA4L«  ♦ W||T)i 

« J HCTVJHN  A4CT*. 

<43  3 CND. 

<44  2 A«CTR*OCT*ACO<ADOft* 

<49  2 SVMOOL«AU*vAOUAOC*,'«NCXTMVA1LAOLI  • OAASCT. 

<4<  2 *CU*N  A#CTA* 

<4r  i cnd  LA0CL*Aoc*#oAAjrr. 


[ i | 


<44  1 LA4CL#*0C*  **Q CCDuRC  tADOft.  MOLD  - AOOACSS* 

<49  2 CXCUWC  AM*  AOOACSS. 

MOLD  OVTC* 

<50  2 RCTJftN  LACCLAAOOASOAASCT  < AOC**  HOLD.  1>* 

<31  2 KNO  LA0CL4ADC*; 


<32  1 COOt*AOA*OISALAV  RAOCCDUAC  vAOXMT>* 

<33  2 DCCLAR1  AO  I NT  4VTC. 

<34  2 CALL  l0A0*L<ID<A0XNT>. 

<33  2 CALL  ONC#AOC**OAAvDlS*  L*AOC*>. 

<3<  2 CALL  CODCMVTtvULtNGTM). 

<3?  2 KND  CODOAOAAOISALAV) 


<30  1 A4AN4TVAC  RROCCDLAC  OVTf . 

<39  2 ACTUAN  vL#TVAf«ALAMA>  OA  vL*TVR«-ALRMA*NUn>, 

MO  2 KTO  AAANOTVAf, 


<41  1 NOT 9 1 NTf OCR  RAOCCDUAC  0VT1. 

M2  2 AfTVlAN  LSOCCOO* 

<43  2 CND  NOTOXNTtOI*; 


M4  1 NUNCRXCSTVAf  RAOCCDUAC  4VTC. 

M3  2 RCTUAN  <L<TVAt>«f4UM3AlCOLlTIAALJ  AND  <L4TVRt<»C0MR>. 

<M  2 CND  NUnfftICOTVAfe 


<47  1 GCNACOMRAAC  RAOCCDUAC* 

MO  2 C4CLAAC  vNOTVAf,  N#OCC>  4VTC* 

<HOADDA.  K#lCNQTH>  AOOACSS. 


M9  2 
<70  2 

<71  2 

472  2 


<04  2 

MS  3 

<07  3 

<00  3 


703  3 

704  4 

707  4 


709  4 

710  4 

711  4 

712  4 

713  3 


CALL  LOAO«L»lD<MA>i 
LOTVAf-ANOiOUT  *OCCUAS<  L*TVAt > . 

XA  CONDATVAC-3  TM*N  /•  CONAAAC  AOA  NUNCfttC  •/ 

DO* 

IA  AAANATvAg  OA  <L<TVAOCOnA > TN BN  CALL  !NVAlID«TVA«* 
CALL  SCTAVALUC2<NKXT0AVAILA0LC'. 

I A LATvAt-NUMCAlC  TMfN  CALL  C00€#4VTt<CNU>. 

CL SC  CALL  CODCO»vT«vCMl>* 

CALL  C00t*A0C*CSS<L*AD0A>. 

CALL  COOt*AOC*CSSvLALCNOTH>. 

CALL  SCTfOAANCH* 

CND* 

fuse  I A C0ND#TVAC«4  TMCN 

DOi 

IA  MUMCAtCJTVAC  TMCN  CALL  I NVAL X DATVACj 
CALL  SCT  0VALUC2 «-  NCXT  f AVA  X L AOLC  > t 
CALL  COOt OOVTlv CAL >* 

CALL  COOt# AOOACSS <LAAOOA>i 
CALL  COOC<ADOACSSvLOLCNOTH>* 

CALL  SCT  tOAAMCHi 

CND. 

CL  SC  DO. 

XA  NUWCAlCJrvAf  TNCN  CTA«1. 

CL  SC  CTA-O. 

M#TVAf«L<TVAC* 

MODCC-LAOCC. 

MOA00A«L0A0C*i 

MOLCN0TMM.fLfNQTM. 

CALL  LOAO#L*XD\SA'i 

XA  nuncaxcatvac  thin  cta«cta*i* 

XA  CTA«2  TMCN  NUMCAXC  COMAAAC  •/ 

DO. 

CALL  LOAOAAfOvO.  MA'. 

CALL  SCTtvALUC2vNCXT*AVA(LA0LC-<>. 

CALL  LOADOCCOvl*  SA.m 
CALL  COOC*OVT|vSUO>. 
call  CODCJOVTfvAOT  • COND«TVAC>. 

CALL  SCTftOAANCH. 

CND. 

CLSC  DO. 

. 4w*MA  A re  CCA*AAAf  . 


714 

4 

IF  <MAOSCOO>  09  <HATVPE«COHP> 

71* 

4 

CALL 

0*  <L#C€COO?  OA  <LATVAE«CONP> 

OA  vMALENQTHOLALCNGTH;  THEN  CALL  INVALIDATVPE; 
SET  * V ALUE2  < NEXT AAVA  I L A9LE  > ; 

717 

4 

CALL 

C00EA9VTE  < SOT ♦CONOATVPE > . 

719 

4 

CALL 

COOSAAOOA*JS<MAAOOA>; 

715 

4 

CALL 

COOCAAOOAtSS < LAAOOA > , 

729 

4 

CALL 

CODE AADORESS v H*LENOTH > , 

721 

4 

CALL 

setaoaanou 

722 

4 

KNOi 

725 

5 

END. 

724 

2 

END  OSNA COMPARE, 

725 

1 

MOVEATVAS:  PROCEDURE  OVTEj 

724 

2 

DECLARE 

727 

2 

MOLDATVAE  OVTt, 

ALPHAANUHAMOVE  LIT 

AANAEDAMOVE  LIT  1', 

NUMSRICJMOVE  LIT  2'. 

NASDAMOVE  LIT  'Z'i 

LATVAE -ANOJOUTAOCCUAS  < L ATVAE>; 

729 

2 

IFCCMOLDATVPE  •ANOAOUT*OCCURSvGETATVPE>>«GAOUA>  OA  <LATVFC-OAOUA 

729 

2 

THEN  AETUAN  ALAHAAfAjMAflOVEi 

IF  moldatvpe-alpha  then 

721 

2 

IF  AAANATVAE  OA  <LATVPE*AAED>  OA  <L*TVAC»A*NAEO> 

723 

2 

THEN  AETUAN  ALAHACNUHAHOVEi 

IF  MOLDATVAE •ALPMAANUM  THEN 

734 

2 

DOi 

725 

3 

IF  NOTAINTEOEA  THEN  CALL  iNVALXOATVACi 

737 

2 

AETUAN  ALPHAANUHAMOVE; 

729 

3 

ENOi 

725 

2 

IF  <HOLDATVFO-NU«EAXC>  AND  V HOLD ATVAE< -COMA > THEN 

749 

9 

* 

00; 

741 

2 

IF  CLATVAE-ALPMA)  OA  <LATVRE>COMP>  THEN  CALL  INVALIDATVPE; 

743 

2 

AETUAN  NUMER I CAHOVE* 

744 

3 

END; 

743 

2 

IF  HOLOATVAE-AANAED  THEN 

744 

2 

DO; 

747 

3 

IF  NOTAINTEOSR  THEN  CALL  INVALIDATVPE, 

745 

3 

AETUAN  AANAEDAI10VE; 

759 

3 

end; 

751 

2 

IF  moldatvae-aaed  then 

752 

2 

IF  AAAMATVAE  OA  CLATVAE>COMP>  THEN  AETUAN  AANAEOAMOVE; 

754 

2 

IF  MOLDATVAE-NUHASD  THEN 

755 

2 

IF  NUNEAICATVAE  OA  <LATVAE«ALPHAANUH>  THEM 

754 

2 

AETUAN  NAEDANOVEi 

757 

2 

CALL  INVALIDATVAE; 

759 

2 

AETUAN  Oi 

755 

9 

* 

END  MOVEATVAE, 

749 

1 

OENANOVC  PROCEDURE, 

741 

2 

DECLARE 

742 

2 

LENOTHl  POORESS, 

ADDA1  POORESS. 

EXTAA  ADDRESS;' 

ADDAADDALEN . PROCEDURE; 

743 

3 

CALL  C0DEAADDAESS<AD0A1>. 

744 

2 

CALL  CODEAADOAESS<LAADDA>; 

743 

3 

CALL  COOEAAOORESSvLRLENGTH>; 

744 

3 

END  POOAAOOALEN. 

747 

2 

CODEAFOAAEDIT  PROCEDURE; 

749 

3 

CALL  ADDAADDALEN; 

745 

3 

CALL  CODE AAOOAESS COST AFC9AA00R>. 

770 

3 

CALL  C00CAADCRESS<LENQTH1>; 

771 

3 

END  CODEAFOAAEDIT; 

772 

2 

CALL  LOAD ALA IOC HPA1>, 

772 

774 

2 

2 

CUAASVm  VALUE  < fA  > . 

IF  < ADDA1: •VALUES <SA>> -9  THEN  POORl-GET AAOOAESS; 

774 

2 

LEN0TH1«QETALEN0THi 

777 

2 

C*0  CASS  MOVEATVAS; 

779 

3 

/•  ALPHA  NUMERIC  HOVE 

oa 

775 

4 

IF  LSNQTHLOLJLENQTH  then  EXTAA^ENQTHl-LALENOTHi 

791 

4 

ELSE  00; 

792 

5 

EXTRA*#; 

793 

5 

LALENOTH^ENGTHl, 

794 

5 

END; 

795 

4 

CALL  COOEAOVTfvMOV;; 

C <-J  Vfc*. 


CALL  AOC‘*ADO#Ltf4. 

CALL  COOCMOCACSSvrATWX 

DO* 

/•  ALANA  NUHCftlC  DXTfD 

OOi 

CALL  COO«AOVT«<MD>* 

CALL  C0CX**0*S€01T. 

KNDi 

NUHSAIC  AOVt 

do* 

call  loa&mco<2.  aaai>. 
CALL  STOHt#AtQ<SA>* 

«ND* 


/•  NUHSAIC  KDITCD  «Ovt 

do* 

call  coosaovtkhnsj* 

CALL  COO€#AOA#SDIT* 

CALL  COOtttVTtvLfOCO* 

CALL  COOS«OVTIvO£T#0«CXHAL>* 

KHOi 

DO. 

DO  0SN4H0V*, 


C0CCMD4  aaocsduas<aaoouctxon>* 
dsclaa*  AAOOUCTXON  OVTS. 

IA  AAXMTtAAOO  TWSN 
DO* 

CALL  CALA* 

CALL  AAINTCHAA<AOUNO>* 

CALL  AAtNTANUMASA<AAOOUCTION>» 

DO. 

DO  CASS  AAOOUCTION* 

/•  AAOOUCTIQNS*/ 

/•  CASS  9 NOT  USD  •/ 


1 <A-OIV>  • AAOCSDUA*  DIVISION  <USXNO>  <AAOC-OOOV> 
DO* 

COHAIL l NO  - AALSS* 

IA  SSCTIONAALAO  T>«n  call  loaoasscalaosl* 

DO. 

/•  2 <USXNO>  • USX NO  <XD-STAIN0> 

CALL  NOTftXMALIMKNTtD*  /*•  iNTfA  AAOO  COHN  •/ 

/•  2 S!  <«HATV> 

/•  NO  ACTION  ASOUIAD  •* 

/•  4 <XD*fTAXNQ>  • CXD> 

IDASTACKv IDAAT*  -0)«vALU€<SA>. 

S*  9 V <XD-SmiNQ>  <ID> 

DO* 

XA<  IDAATA  •IDATA*!;.*#  TNSN 
00* 

CALL  AAInT«SAAOA<'ID'>* 

ID^TWVS* 

DO* 

IDAfTACKv  ID«ATA>«VALUS<SA>. 

DO* 

/•  « <AAOC-000W  • CAAAAOAAAIID 

/•  NO  ACTION  ACOUIAD 

/•  ? V <AAOC-OOOV>  <AAAAOAAAM> 

S*  NO  ACTION  ASOUXASD 

>•  A CAAAAQAAPn>  • C10>  CSSNTSMCS-LlST> 


: " 


134 

4 

•24 

4 

•37 

4 

tNO. 

/* 

111 

2 

OO* 

•29 

4 

M 

4 

•41 

9 

•42 

s 

•44 

9 

•49 

9 

•44 

9 

•47 

4 

•40 

4 

tNO- 

y i 

•49 

3 

4 

y i 

•SO 

2 

/•  i 

•SI 

2 

y i 

IS2 

2 

i 

/*  i 

•92 

2 

call 

y 3 

•94 

3 

oo* 

•99 

4 

( 

•94 

4 

i 

•97 

4 

( 

•90 

4 

CNO* 

y 

•99 

2 

y 

•40 

3 

CALL  ' 

' 

y 

•41 

5 

CALL 

y 

•42 

3 

y 

•42 

3 

00* 

•44 

4 

•49 

4 

•47 

4 

tNO* 

y 

•M 

2 

y 

•49 

3 

call 

y 

•70 

2 

OO* 

•71 

4 

•72 

4 

•73 

4 

•74 

4 

•79 

4 

•74 

4 

•77 

9 

•7* 

9 

IF  StCTIONoFLAO*#  TNtt4  itCTIGNOFLAG-i, 
CALL  LOAOOLAttL- 

9 S'  <t»>  SICTION 


iw  hction^lmoi  thin 

oo* 

IF  StCTIONOFV.AQ-2  TN*N  CALL  FAINT»€AAOAv  FF'>, 
«CTION#FL^O-1. 

HOCOt *tCT I CN*VALUt V MA > * 

MOLOOff C0A0©A«VALUt2<  MF  > I 

tNO* 

CLSC  CALL  LOAOOttCOLAttL, 


It  <S«NTtNC*-LlST>  • CStNTYNCO 
'•  NO  ACTION  RCOUlftCO  •/ 

1 S ! <SCNTVNCS~LIST>  <JtNT«NCf> 

/•  NO  ACTION  MOUIftO  •/ 

U <J«NTtNC«>  - <XNA«*ATlVt> 

NO  ACTION  ACOUlltCD 
U S ' ^CONDITIONAL* 

✓*  NO  ACTION  ACOUIRCO 

14  S!  tNTW  <10>  <0AT-lD> 
NOTOlNALlNtNTtD*  /•  LANOUAOI  CNANOI  ^ 

15  ClNAtAATIVt*  • ACCtrr  CSUttO* 


CALL  L0A0«Ltt0<SA>. 

CALL  ONt#AD©A#OAA<ACC-LOA©OA>* 
CALL  C00CA0VTI<L*L«N0TI4)» 


1<  V <AAITNT«TlO 

/•  NO  ACTION  AtQUtftfD 

If  S'  CALL  <LIT>  <USINQ> 

NOTtlAALtAtHTlO*  /•  INTtt  PAOO  CONN 

It  S'  CLOSC  <X0> 

ONCOADO*OOAA<CLS.  OfTiACtOADOA)* 

1#  S'  <FIL1-ACT> 

/•  NO  ACTION  AtQUlRCO  •/ 

at  S'  OlfALAV  <LlTxlO>  <0AT*lXT/10> 


CALL  COOttAOAoOl«ALAVvHAAl>* 

IF  VALUt<SA'O0  n«N  CALL  COO«OAOAO©l*ALAV< 9A>. 


tl  S'  «XXT  vyFOOAAN  I&> 

/•  NO  ACTION  KCOUIRCO  •/ 

U S'  00  <I0> 


*3 


S'  00  sIO-rr*INO>  OCACNOINO  <io> 


CALL  CODtOtVTfvOOA). 

CALL  COOt#tVTfvIDOATt.'. 

CUAFSVN^ALUt  v «F  > . 

CALL  COOtftvTt  < OCT OLtNOTN  > . 

CALL  C00t0A0C*tI9<0«T0A0©A*I*>. 

00  CT*«t  TO  COOATIt 

CALL  COOfAQOAtltvLAOtLFAOOAFOFFttTv  l»WACKv  IDOAT*>. 


L t>>* 


«r«M 


S'  rt*wo*n  <JD>  <tn*u>  <finxsm> 


S'  <FILf-*CT>  <XNVALXD>  <in***ATXV«> 


S'  DtVXOt  <WXD>  INTO  <SU»XD>  <*OU®> 


CftU.  MULT«OXV<t>. 


cau.  KCAOMtttrCvi. 


222222*2  I i 22222  2222 


*4* 

ftt 

99« 


3 


3 


3 


3 


3 


3 


3 


tn  3 

9*2  3 

>n  3 

9*4  3 

W 3 

974  3 

977  3 

n 3 

9*9  3 

944  3 


CftU.  UNACS0LVCD44AANCH, 

✓•  39  sTHAUD  • TMAU  <XD> 

CAU.  LtfA*VALUfS* 

✓•  M S! 

✓•  NO  ACTION  AfQUIAfD  «y 
✓•  41  <A!NI*M>  • v0-y:0>  TJMCJ 

00* 

CALL  LOA04L9ID<NA>* 

CALL  ONf4A©C*40AAvLOI.L*AOOA>i 
CALL  COO€»OVTtvL«L£NOTH)* 

CALL  SfT#VAUjf2<Nf>,TtAVAlLA4LE>. 

CALL  0Nf«A0D*4OA*vDfC*d>* 

CALL  SCT«VALV*vNCXT •AVAILABLE.’* 

CALL  COOC*AOOAfSS<4>,  (NO* 

✓•  42  S!  UNTIL  <CONOXTION> 

CALL  KSKAtVALUKS* 

✓•43  Si 

i /•  NO  ACTION  AfOUI AfD  •/ 

44  <INVALI0>  INVALID 

DO* 

CALL  Srr«VALuC<l>J 
CALL  C00€«9VTfCXNV>* 

CALL  Srr#9AANCHi 

DO* 

/•  43  <SXZf-fAAOA>  • SIZC  tAAOA 

00* 

CALL  C00f#4VTlvSfA>* 

CALL  UNAfJ0LVfD«4AANCM* 

DO* 

✓•  44  <*AfCIAL-ACT>  - CWHDO  ADVANCING  CHOH  WAMV> 

CALL  NOT«lNALXNfNTID*  CAAAAOf  CONTROL  •✓ 

✓•  47  S! 

* ✓•  NO  ACTION  AfQUIAfD  -✓ 

/•  44  0*€N>  - BfAOAf 

CALL  NOTtINALXNfNTtD*  ✓•  CAAAAQ1  CONTROL  •✓ 

✓•  49  s*  Arrm 

CALL  NOT*XNALIHfNTI&.  ✓•  CAAAAOf  CONTROL  •/ 

✓•  79  <HOM  MAHV>  • <XNTtOfA> 

CALL  NOMINAL  I NfNTfD*  /•  CAAAAOf  CONTROL  •✓ 

/•  71  Si  MQI 

CALL  NOT  • INAL  I AD  m&*  /•  CAAAAOf  CONTAOL  •✓ 

✓•  72  <TVA«-ACTION>  • INAUT 

✓•  NO  ACTION  AfQUIAfD  - VALUf <SA>  ALACAOV  ZfAO  •✓ 
✓•71  S'  OUTAUT 

CALL  SITtvALUfvl/i 
✓•74  S!  1-0 

CALL  SfT«VALUfv2>. 

✓•  73  CSU4I0>  • *CJU4*CAIAT> 

✓•  VALUf  AND  VALUtf  ALAfADV  SfT  •✓ 


•✓ 


•✓ 


•✓ 


my 


my 


my 


my 


my 


M 


/m  NO  ACTION  REQUIRED 


CALL  SET • VALUE < CONVERT  * 4 NTCGCR ) « 


903  4 

997  4 


CALL  SCT*VALUI<  MATCH  >; 

IF  QCT*TV*C»UNAESOLVCD  TMfN  CALL  SCT#VALU£2-.NC>:T4AVAlLA0LE>i 


79  <L/tO> 


999  3 

999  4 

990  4 

991  3 

992  3 

993  3 

994  4 

993  4 


IF  MUnCAXCSLXT  TMCN 
OOi 

CALL  SCT*VALUC<:NUMCRXC*LITEAAL>. 
CALL  SCT*VALUC2<ST0AC*C0NSTANT>, 

END* 

(LSI  CALL  5CT4VALUC  < MATCH ) , 


S*  <SUOSCRIFT> 


/*•  NO  ACTION  REQUIRED  •/ 


CALL  SCT#vALU»'LXT«ZIAO)i 


<SUOSCR!FT>  • <ID>  < <XNFUT>  ) 


CALL  CHCCKFSUOSCRIFT; 

•3  <oft-l/id> 


/•  NO  ACTION  ACQUIRED  *✓ 

94  S'  <*n9TV> 


1991  3 

IMS  4 
1003  4 

1M4  4 


VALUE  ALREADY  SCT 

S3  <NN-Llt>  - <LXT> 


CALL  SCT9VALUC<N0NSNUnCAICSLXT>i 
CALL  Srr«VALUCS<STOACSCONSTANT>i 


call  set»value<lit#sface>* 


CALL  SCTtVALUKLXTMUOTO; 


M CLXTIAALD  • <NN-LIT> 
/*•  NO  ACTION  REQUIRED  •/ 


ISOS  3 
1009  4 

101 1 4 
1912  4 

1013  4 


IF  NOT  NUMCOICSLIT  THEN  CALL  I NVAL I DrTVFC, 
CALL  SET f VALUE  < NUNES I CJL l TEFAL  > » 

CALL  SETFVALUCS'.  STORE  #CONST  ANT  >i 


CALL  SET#VALUE<LlTSZ*AO>i 

91  CLIT/ID>  • <L/tD> 


/•  NO  ACTION  ACQUIRED 


92  Sf  <NN-LXT> 

/•  NO  ACTION  REQUIRED 


93  <OFT-LrT/XD> 


/•  NO  ACTION  REQUIRED 


162 


NO  ACTION  ftcogtftio  •' 

n ^aaooaan-io:*  • <io 


call  Momn*.imNTt&« 


• INTfA  AAOO  CONN 


N S' 

/•  no  action  fttoumco 


#?  sACAO-IO>  • At AO  <!©> 


CAU.  *CAO«UA!TCvO>« 

N <IA-N0NTCAt1!NAL> 


I A ML  AO  • TAUC. 


/•  nr  i a ml  ao 


1 023  2 fNO.  /•  CNO  OA  CASC  STAGNANT 

1124  2 CNO  COOCAQCN. 

io80  i orrtNi  aaoccouac  ovtc, 

1028  2 At  TUAN  |N0€XlvfTAT8>. 

101?  2 and  octini, 

1020  1 arrtN2  AAOCCOUAC  OVTC< 

102#  2 AC  TUAN  lNC4S2v«TATl>, 

1020  2 CNO  OCT IN2< 

1021  1 l NCSA  AAOCCOUAC. 

1022  2 valUCvSA  «*A  * i>«0.  CLCAA  TMC  STACK  MNtLC  INCAtNfNTlWO 

1022  2 VALUCKSA'-O. 

102#  2 I A SA  >•  AfTACKSIXC  TNCN  CALL  AATAL#CAAOA<  SO  U 

1024  2 CNO  I NCSA. 

102?  1 LOOKANCAC*  AAOCCOUAC. 

1020  2 l A NOLOOK  THCN 

102#  2 C-Oi 

10#0  2 CALL  SCANNCA. 

1041  2 NOLOOK  MOLSC. 

1042  2 IA  AA!NT#TOKfM  TNfN 

1042  2 00. 

1044  4 CALL  CAL  A. 

1049  4 CALL  AAINT#NUNMAvTOKCN>« 

1044  4 CALL  AAINTCCHAAv'  '>. 

104?  4 CALL  AAINTOACCUNi 

1040  4 CNO. 

104#  2 CNO. 

1090  2 CNO  L00KAH8A0. 

1091  1 N0#C0NALICT  AAOCCOUAC  <CSTATt>  OV^t. 

1092  2 OCCLAAC  vCSTATf.  1.  J.  K>  OVT«. 

1092  2 J*l NOffXl v CSTATC  > . 

1094  2 K«J  * tN0CX2vCfTATf>  - i, 

1099  2 00  l«J  TO  L 

1094  2 IA  ACA01v!>»T0kCN  TnCN  ACTUAN  TAUt. 

1090  2 CNO. 

109#  2 ACTUAN  AALSC. 

1040  2 CNO  N04C0NAL1CT. 

1041  1 ACCOVf A AAOCCOUAC  OVTC. 

1042  2 OCCLAAC  TfA  OVTC.  AfTATC  OVTC. 

1042  2 00  AOftfvCA. 

1044  3 TSA«SA. 

1049  2 DO  WMlLf  TfA  O J99< 

1044  4 I A NOOCONAL I CT < AfTATC  •STATf STACK  v TfA " TNCN 

104?  4 00.  /•  STATf  WILL  ACAO  TOKCN 

1040  9 IA  SAOTfA  TWIN  SA  • T»A  - *w 

lOrO  9 ACTUAN  ASTATC. 

ion  9 cno* 

ion  4 TSA  • T1A  - 1, 

ion  4 cno. 

10?4  2 call  scannca.  /•  TAV  anothca  tokcn  •/ 

10?9  2 CNO. 

10?4  2 CNO  ACCOVCA. 


aaooaan  csccution  staats  ncac  • - 


y initialisation 

T0KCN«4I.  • AAIHC  TNC  SCANNCA  Ml TM  -AAOCCOUAC-  •' 

CALL  MOVfv  AAtSlATOA-AAtSliLCN.  OUTAUT MC§.  AA9C10LCN  * . 
/•  this  scts 

OUTAUT  AtLC  CONTAOL  CLOCK 

tooolcs 


1 


MAO  *0 1 NTH 

Nt*Y  IvntOi.  TAILS  POINTS* 


iors 

1 

•/ 

OUTPUT 4«ND*vOUTPUT9PT*  • OUTPUT *4oPP-l  >*124. 

1044 

1 

00  MAILS  COHPlLlNOi 

1141 

2 

IP  STATS  <•  MAKSnO  TNtN  /•  MAO  STATS  •/ 

1042 

2 

00. 

1*42 

3 

CALL  1NCSP 

1444 

3 

iTATSSTACKvSP*  • STATS,  • SA V«  CUAASMT  STATS  •/ 

1443 

3 

CALL  UOOKAMSAO. 

1044 

2 

i«octini> 

144* 

3 

J • I ♦ 0STIN2  - L 

1044 

3 

00  1*1  TO  J. 

1444 

4 

IP  MAOl \ l > • TOKN  TMtN 

1444 

4 

00. 

1041 

3 

, • COPY  TM«  ACCUHULATOA  IP  IT  If  An  INPUT 

STAIN*  IP  IT  IS  A MSSAVSD  MQAO  IT  OOSS 

NOT  NISO  TO  4S  COP ICO  ^ 

IP  , T0KSN«|NPUT9ST»>  OA  . TOKSN-L  J TfAAL ->  T*SN 

1492 

3 

00  kM  TO  ACCUAv4>. 

1493 

4 

VAACvk>«ACCUHvk>. 

1494 

4 

SND. 

1493 

3 

STATS «ASAD2v l>. 

1494 

3 

N0L009-TAUS. 

149? 

3 

I«J. 

1494 

3 

CKL 

1499 

4 

SUt 

IP  l«J  THIN 

1144 

4 

00. 

1141 

3 

CALL  PAINT MftAOftv  NP'>. 

1142 

3 

CALL  PA! NTy  |ftAOA«NSAA«9>. 

1243 

3 

CALL  PAINT9ACCUH 

1144 

3 

IP  v fTATS  •ASCOVIA'M  TMSN  COHP I L I NO-PALJS 

1144 

3 

SND. 

1104 

3 

SND. 

SND>  /•  SND  OP  ASAD  STATS 

1149 

2 

CLSS 

IW  SfATfONAXPNO  TMC/V  /•  APPLY  PAODUCTJON  STATS  •/ 

1114 

2 

oa 

2111 

3 

np-sp  - orriNS. 

1112 

3 

MPPl-HP  ♦ 1, 

1113 

2 

CALL  COOS  4<3SNV  STATS  - AHxPNQ). 

1114 

3 

SPMP 

1113 

3 

l-OST  INI. 

1114 

3 

J«STAT|STACK<SP>. 

mr 

3 

OO  MHILS  v'K  M«PPin<I>>  O 4 AND  JO.. 

1114 

4 

!•!  • l > 

1119 

4 

SND* 

1124 

3 

IP  <1  -APPLYKI  > '•#  THSN  COHPILINO-PALIS. 

1122 

3 

STATS 

1123 

3 

SND. 

1124 

2 

(US 

IP  STATK-HAXLNO  thin  .'•LOOkAHtPO  STATl-x 

1123 

2 

00. 

1124 

3 

i-ostini. 

112  r 

2 

CALL  LOO^AhSAD. 

1124 

3 

OO  MHILS  vk  *L00kl » I > ' 04  AND  TOk«N  Ok. 

1129 

4 

!•!♦!. 

1124 

4 

SND. 

1131 

3 

STATS «L00k2v  I >• 

1132 

3 

SND. 

1133 

1 

CL  SI 

oa  /mush  statis*/ 

1134 

3 

CALL  INCSP. 

1133 

3 

STATIST  ACK  s SP  ' -OCT  l N2. 

1124 

2 

STATI-aSTlKi, 

113? 

3 

ind. 

1134 

2 

«ND.  /•  OP  MHILS  COHP !L I NO  •/ 

1139 

1 

CALL  4VTS#0UT<TSA>. 

1144 

1 

00  MHILS  OUTPUT 9PTAO  OUTPUT «|UPP. 

1141 

2 

CALL  4VTS90UT \ T«A  > » 

U4* 

2 

SND. 

1143 

1 

CALL  CLOU. 

1144 

1 

CALL  calp 

1143 

1 

CALL  PA  I NT \ |ND«0PtPAATt2. 

1144 

1 

CALL  40GT. 

114? 

1 

SND. 

MOOULS  INPOAHATION 

coos  msa  sin  • 203dh  §2320 
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t&itit  fcBSiJSBVBBSSttS  tSSSirKBtril  U6$K  SJCf,  CS*.-. 


».  WSkt 


irs3T 


ISIS-!  I PL.  H-BB  vy  1 COMPILATION  op  moduli  DCCODt 
OBJECT  Ma^Ll  PLACID  IN  PI  occoot  obj 
COMP  I LIP  INVOKEO  »v  PU-IM  Pi  DECODE  PLM 


PPA08LIN0TN<M> 

1 OCCODC  DO. 

THIS  PPOOPAM  TAKES  THE  COOC  OUTPUT  PAOM  TH«  COBOL  COMPILE* 

Awo  CONVIPTS  IT  INTO  A ACADABLI  OUTPUT  TO  PACILITATK  DEBUGGING  •/ 

/•  • • 1MN  load  point  •/ 


2 1 DC  CL  ABC 


LIT 

BOOT 

BOOS 

PCS 

PCBP#VT« 

I 

AOOA 

CHAP 

CJADOB 

•UPPPCND 

PILtSTVPt 


litiaallv  LITCBALLV'. 

LIT  'O'. 

LIT  'S'. 

AOOACSS  INITIAL  <9CH>. 

BASED  PCS  <4>  BVTt, 

BVTt. 

AOOAISS  INITIAL  <1B0H>. 

BASED  AOOA  BVTt. 

BASED  AOOA  AOOAISS. 

LIT  OPPH'. 

<•>  BVTt  DATA  <'C‘.  I'.  N'>t 


1 1 MONO.  PAOCCOUAC  vP.A). 

4 2 DC CL API  P BVTt.  A AOOAISS. 

32  L 00  TO  L-  /•  PATCH  TO  JMP  3 

42  CNO  M0M1. 


1 M0N2  PPOCIDUP*  vp.A>  BVTt, 

2 OCCLAPC  P BVTt.  A AOOAISS. 

2 L 00  TO  U /•  • • PATCH  TO  * JMP  3 * • • •✓ 

2 ACTUPN  0* 

2 (NO  H0N2. 


1 PPINTACHAP  PAOCCOUPt  < CHAP  > * 

2 DICLAPt  CHAP  BVTti 

2 CALL  MONKS.  CHAP). 

2 • CNO  PAINTPCMAPj 


1 CPLP  PAOCCOUAC. 

2 CALL  PAINTACHAP 

2 CALL  P*INT«CHAP<1B>. 

2 CNO  CPLP. 


1 P PAOCCOUAC  <A004>. 

2 OCCLAPC  A001  AOOAISS.  C BASIC  AOOl  vl>  BVTt. 

2 CALL  CPLP. 

2 DO  I TO  2. 

3 CALL  PPINTBCHPP<C<!»>« 

3 CNO* 

2 CALL  PPXNTPCHPPv  * '>j 

2 CNO  P* 


OfTBCHAP  PPOCCOUPC  BVTt. 

IP  s AOOA  -AOOA  ♦ 1>>BUPP««M0  THIN 
00* 

IP  M0N2v2B.  PCB>OB  THCN 
DO. 


CALL  P<  v.  'CNO'  > J» 

call  TincviOi 

L 00  TO  L>  /•  PATCH  TO 


C/40. 

aooa«b*h, 


CNO. 

. ACTUPN  CHAP. 
INC  OCTtCHAP. 


•/ 


1 DPCHAP  PPOCCOUPC  \ OUTPUT PBVTC  > . 

2 OCCLAPC  OUTPUT PBVTf  BVTt. 

2 IP  OUTPUT SBVTCdO  THCN  CALL  PB l NTJCHABs OUTPUT fOVTC  * 1BH>. 

2 CLSC  CALL  PP  ! NT BCHAPv  OUTPUT ftvrt  * 37H>, 

2 CNO  DPCHAP. 


47  l 
44  2 

49  2 


0 PAuCCOUPC  v COUNT  > • 

CCCLAPCv  COUNT.  J • ADOPCSS- 
DO  ./•!  TO  COUNT 
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CND. 
KND  0. 


CALL  t-*CXAA^SMF-.*it7#CHlH.  4>  ... 
CALL  DFCHAAvCHAA  AND  OFm>. 
CALL  FAIMTACHAAv  >. 


53  1 FUlNTAAffT  ^ftOClDUKK, 

54  2 OKCLAAK 

F2  LIT  *•'. 

F3  lit 

F4  lit  '21'. 

*3  LIT  '24. 

F4  LIT  '32'. 
ft  lit  if '. 

F»  lit  ' 43' . 

FiO  LIT  -34'. 

Fll  LIT 
FU  LIT  *1'. 

oof  lit 

INT  LIT  '43*. 

•ST  LIT  *4'. 

Tin  lit  43‘. 

SCO  LIT  '44*. 

5T  2 IF  CHAU  < F2  THKN  AKTUAN. 

3t  2 IF  CHAA  < F3  THfN  DO.  CALL  Ovl>.  AKTUAN.  (NO. 

44  2 IF  CHAA  < F4  THfN  00.  CALL  Dv2>>  AKTUAN.  CND. 

4»  2 tF  CHAA  w F3  THfN  00.  CALL  0v2>.  AfTUAN.  KNO. 

74  2 IF  CHAA  < F4  TH|H  00.  CALL  Ov4>.  AITUAN.  KNO. 

73  2 IF  CHAA  C FT  THKn  00.  CALL  Dv3>.  AKTUAN.  CNO> 

•42  IF  CHAA  < F3  THKN  DO.  CALL  0v4>.  AfTUAN.  CNO. 

•f  2 IF  CHAA  < Fit  THKN  00.  CALL  0<4>.  AfTUAN.  KNO. 

•4  2 IF  CHAA  < FU.  ThKN  00.  CALL  Ovf>.  AfTUAN.  KNO. 

M 2 IF  CHAA  < F13  THKN  00.  CALL  OviO>.  AfTUAN.  KNO. 

1*4  2 IF  CHAA  < OOF  THKN  00.  CALL  Dvl2>.  AKTUAN.  CND. 

199  2 IF  CHAA-OOF  THKN  DO. 

U1  3 CALL  Ovl>.  CALL  0<SHL<CHAA.  i>*3>.  AKTUAN.  CNO. 

113  2 IF  CHAA»!NT  THtN  00.  CALL  Ov3>.  CALL  DvCFAOOA  * 1>.  AKTUAN.  CNO. 

121  2 IF  CHAA-4ST  THfN  00.  CALL  Ov4>.  AKTUAN.  KNO. 

124  2 IF  CHAA«TCA  THKN  00.  CALL  F<.  < KNO  >>. 

123  3 L 00  TO  L /*  FATCH  TO  " JMF  •“  KNO. 

131  2 IF  CHAA-SCO  THKN  OO*  CALL  0<2)>  AKTUAN.  CNO. 

134  2 IF  CHAA  O OFFH  THKN  CALL  F<.  v'XXX>>. 

13K  2 (NO  FAU4T4AKST. 


X*  FAOOAAH  KXCCUT10N  STAATS  HKAK  •/ 

FC3FAVTC v 32 .*  FCKFKVTlvt)  • 4. 

00  I TO  2. 

FCKFCVTKv I*f>«FlLltTVFKv  X >. 

KNO. 

IF  H0N2<13.  FC3>«233  THKN  00.  CALL  Fv  v ZZZ'  > >. 

L 00  TO  L.  KNO. 

/%  • • • FATCH  TO 

00  MMlLf  L 

IF  OKTACHAA  <•  44  THKN  OO  CASK  CHAA. 

/•  CASK  4 NOT  US10 
CALL  Fv  v AOO  >>• 

CALL  F<  <*SUK  >>. 

CALL  F<  v *HUL  >.» 

CALL  F<  < 'OlV'  >>. 

CAU.  F<  V'NKO  >>. 

CALL  F<  < 'STF'  > >. 

CALL  F*.  < 'STl ' > >. 

CALL  Fv  v ANO  >). 

CALL  Fv  v ACT  >>. 

CALL  F<  < 'CLS  >>. 

CALL  F<  < SKA  >>« 

CALL  F(.  < IRN  >>. 

CALL  Ft  t'OFN  >>< 

CALL  Fv  < OAl  >>. 

CALL  Fv  < 0F2  >>. 
call  Fv  V tor  >>. 

CALL  F<  < ALT  >.. 

CALL  Fv  v ACO  ... 

CALL  Fv  < INV  >>. 

CALL  Fv  < 'KOA  >>* 

CALL  Fv  v ACC  >>< 

CALL  Fv  v Oil  >>• 

CALL  Fv  ffTD  >>» 

CALL  Ft  v lOI  >>. 

CALL  F<  v *OKC  > ». 

CALL  F<  . fTO  >>. 
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gSe25EStEK0SII5S28S?82jfgSi5!c5i5S5i8i!ir8rH8Hi53 


I 

* 


CALL  At.  t'*TL'>>< 

CALL  At.  f*T2'>>> 

CALL  At.  t'STV>>» 

CALL  At.  t 'ST*'  > u 
CALL  Pi.  t'STV>» 

CALL  Pi  t'LOO  >>i 
CALL  Pi.  t'L d>>< 

CALL  At.  t'LM'>>‘ 
call  Pi  t'LM>>* 

CAUL  At.  t'L»*'5» 

CALL  Pi  i'LO*'>>l 
CALL  Pi  <'LM'»i 
CALL  A<.  t AfA'>>* 

CALL  Pi  t'CNU'>>» 

CALL  Pi.  <'CN *'>>< 

CALL  Pi.  t CAL'>>* 

CALL  A<.  <'*«*•>>• 

call  pi  i oar>» 

CALL  A<.  CAOA'JX 
CALL  A<.  t'UTA'>>i 
CALL  Pi.  t'AVL  >>J 
CALL  At.  t'WVL'»>i 
CALL  At.  i'ICA'>>i 
CALL  At.  t'fOT'>>* 

CALL  At.  f*LT'>>. 

CALL  At.  t 

CALL  At.  t M0V')>| 

CALL  At.  t AAS'>>i 
CALL  At.  t'UAS'>>i 
CALL  At.  t'AAA'>>i 
CALL  At.  t'IA«'!)i 
CALL  At.  t'AUA')>> 

CALL  At.  t'OLA'>>. 

CALL  At.  t'M*D'>>( 

CALL  At  t 

CALL  At.  t'OOA'>>< 

CALL  At.  flMT'»i 
CALL  At.  t'»ST>>> 

CALL  At.  t'TtA'>>. 

CALL  At.  < *«»  >>< 

CMC.  /*  OA  CASC  rfATIKNT  „• 
CALL  AAXNTAACST* 

CMC.  /•  CNO  OA  CO  UHtLC  •/ 

CMC. 


LOCULI  INAOAAATtON: 

coot  aaca  r.a  • mum 

VAAIACL*  AACA  itZC  * OAUM 
MAKIAUB  STACK  CISC  • «*A«H 
2U  LIMA*  ACAC 
• AAOQAAA  CAAQAtO 


l«*fO 

LAO 

LAO 


CMC  OA  Al^A-C*  COAAILATXQn 


mm 
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